link with column

**Ranjan kumar Barik** · Oct 24 '07, 10:06 AM

Originally posted by idsanjeev

sir i am requesting for how can create link with table field for displaying its entire row detail on next page.
i.e create link with one column of table when clicked on any link column that display only thats row field from table on next page.
plz reply soon.
many questions are asked by me that is not clear so removed that all previous psts.

If you are using database to populate the table then in the linked page you just modify the query by adding a WHERE clause. Otherwise you have create different pages for different columns and link them with the appropriate field in the first page.

If something wrong then inform.

Thanks

**idsanjeev** · Oct 25 '07, 08:38 AM

sir i can't understand thats u say
plz see my code first page use to sow link with column and second is dislay its row detail
and correct
1) [code=asp]
<%@ Language =vbscript%>
<% Option Explicit %>
<html>
<head><TITLE>VO ICE OF BARAUNIANS</TITLE></head>
<body>

<div style="Position :Absolute; width:700; TOP:0; left:180; background-color:#f0f0f0">
<%
Dim conn
dim objrs
Dim R
Dim R1
Dim radio1
Dim vtopsub
dim vtopid
dim vempno
Dim countloop
Dim replycount
Set conn = Server.CreateOb ject("ADODB.Con nection")
conn.Open("DSN= ORACLE; User Id = STARTER; Password = STARTER")
Set R = Server.CreateOb ject("ADODB.Rec ordset")
Set R1 = Server.CreateOb ject("ADODB.Rec ordset")
Set R = Conn.Execute("S ELECT top_id, top_sub, launch_by, launch_dt FROM topmaster order by top_id ")

%>
<form action=voicerep ly.asp method=post>
<div style="Position :Absolute; top:100; left:0; width:820; height:472; background-color:skyblue">
<table border=0>
<tr>
<td align='center' colspan='10%' bgcolor='#f0f0f 0'><font face="arial" size=2><b>Top Id</b></font></td>
<td align='center' colspan='90%' bgcolor='#f0f0f 0'><font face="arial" size=2><b>Topic </b></font></td>
<td align='center' colspan='40%' bgcolor='#f0f0f 0'><font face="arial" size=2><b>Emplo yee Name</b></font></td>
<td align='center' colspan='20%' bgcolor='#f0f0f 0'><font face="arial" size=2><b>Poste d Date</b></font></td>
<td align='center' colspan='10%' bgcolor='#f0f0f 0'><font face="arial" size=2><b>No.Of Reply</b></font></td>
<td align='center' colspan='10%' bgcolor='#f0f0f 0'><font face="arial" size=2><b>Reply </b></font></td>
</tr>
<%
If Not R.EOF Then
R.Movefirst
countloop = 1
Do While Not R.EOF%>
<tr>
<td align='right' colspan='10%'>< font face="arial" size=2><%Respon se.Write R("top_id")%> </font></td>
<td align='left' colspan='90%'>< font face="arial" size=2><a href=voice.asp> <%Response.Writ e R("top_sub")% ></a></font></td>
<td align='left' colspan='40%'>< font face="arial" size=2><%Respon se.Write R("launch_by")% ></font></td>
<td align='center' colspan='20%'>< font face="arial" size=2><%Respon se.Write R("launch_dt")% ></font></td>
<%Set R1 = Conn.Execute("S ELECT top_id, rep_id from topic where top_id = " & R("top_id"))
If R1.Recordcount >= 0 Then
replycount = R1.Recordcount
else
replycount = 0
end if %>
<td><input type="radio" name="Radio1" value="<%=R("to p_id")%>"></td>
</tr>
<%
response.cookie s("vtopid")= R("top_id")
countloop = countloop + 1
If countloop <= 10 Then
R.Movenext
Else
R.Movenext
End If
Loop %>

</table>

<table width=765>
<tr>
<td align='right'>< input type="submit" name="submit" value="Reply" onclick="reply( )"></td>
<td><input type ="button" value="EXIT" onClick="window .close()"></td>

</tr>
</table>
<%end if%>
</div>
<%conn.close
Set conn = Nothing
%>
<script language="Javas cript">
function brvoice()
{
window.location = "brvoice.as p"
}

function reply()
{
window.location = "voicereply.asp "
}
function voice()
{
window.location = "voice.asp"
}
function newtopic()
{
window.location = "newtopic.a sp"
}
</script>
</body>
</from>
</html>

2)for disply

<% @ Language =vbscript%>
<% Option Explicit %>
<html>
<head><TITLE>VO ICE OF BARAUNIANS</TITLE></head>
<body>

<%If Request.Cookies ("userid") = "" Then
Response.Redire ct "login.asp"
Else%>
<div style="Position :Absolute; width=700; TOP:100; left:180; background-color: #e0e0e0">
<%
Dim conn
Dim R
Dim R1
Dim i
Set conn = Server.CreateOb ject("ADODB.Con nection")
conn.Open("DSN= ORACLE; User Id = STARTER; Password = STARTER")
Set R = Server.CreateOb ject("ADODB.Rec ordset")
Set R1 = Server.CreateOb ject("ADODB.Rec ordset")
Set R = Conn.Execute("S ELECT a.top_id, a.top_sub, a.launch_by, a.launch_dt, a.msg,b.rep_id, b.rep_by, b.rep_dt, b.reply FROM topmaster a,topic b ")
%>
<table border=2 width=700 >
<tr>
<td align='center' bgcolor='lightg rey'>Topic Id</td><td colspan='10%' align='right'>< %Response.Write R("top_id")%> </td>
</tr>

<tr>
<td align='center' bgcolor='lightg rey'>Topic Subject</td><td colspan='10%' align='right'>< %Response.Write R("top_sub") %></td>
</tr>
<tr>
<td align='center' bgcolor='lightg rey'>Employee Name</td><td colspan='40%' align='right'>< %Response.Write R("launch_by" ) %></td>
</tr>
<tr>
<td align='center' bgcolor='lightg rey'>Posted Date</td><td colspan='40%' align='right'>< %Response.Write R("launch_dt")% ></td>
</tr>
<tr>
<td align='center' bgcolor='lightg rey'>No.Of Reply</td>
</tr>

<table><b> VOICE</b>
<tr><td colspan='10%' align='left'><% Response.Write R("msg")%></td></tr>
</table>
<%

conn.close
Set conn = Nothing
%>
<script language="Javas cript">
function brvoice()
{
window.location = "brvoice.as p"
}

function voicereply()
{
window.location = "voicereply.asp "
}
function voice()
{
window.location = "reply.asp"
}
</script>
<br>
<table border=1; width = 700>
<tr>
<table align="center">
<tr>
<td align="center"> <input type="button" name="post voice" value="Vew Report" onclick= "voice()">
<td align="center"> <input type="button" name="post voice" value="Reply" onclick= "voicereply ()">
<td><input type="button" name="Back" value="Back" onclick="brvoic e()"></td>
</td>
</td>
</tr>
</table>
</tr>
</table>
<% End If %>
</body>
</html>[/code]

**Ranjan kumar Barik** · Oct 25 '07, 10:38 AM

Hi , Sanjeev
In the First Page you are displaying the data from topmaster table.
Here You are linking the coloumn as;

Code:

	<td align="left" colspan="90%"><font face="arial" size=2><a href=voice.asp><%Response.Write R("top_sub")%></a></font></td>

I suggest you to pass the top_id using QueryString with the URL.
Like This;

Code:

	<td align="left" colspan="90%"><font face="arial" size=2><a href=voice.asp?opt=<%=R("top_id")%>><%Response.Write R("top_sub")%></a></font></td>

Then in the next page you check for the "opt" value and store it in a variable say "strOpt".
Then you write the sql select statement using the WHERE clause i.e. "where top_id = strOpt". This must be the row you want and populate the table.

If you are retrieving data from two tables then you can use JION tables using the top_id. Or you can do as per your convenience.

In the page you are linking, you have to check if the "opt" has some value or not
then only the code will work else redirect it to the previous page.
If you are doing in the same page then If the "opt" has some value then your second query will work else the first query will work.

**idsanjeev** · Oct 26 '07, 02:58 AM

help me in asp coding

what code i have to use for query string for display and where "stropt" how can store or pass from first page
i.e what code have to use for next work plz

**idsanjeev** · Oct 26 '07, 04:25 AM

sir i am using this code for disply on next page acording to link but i am getting only one top_id not all row
Set R = Conn.Execute("S ELECT top_id, top_sub, launch_by, launch_dt, msg FROM topmaster ")
%>
<table border="1">
<tr><TD colspan="15%">< th>Topic Id</th></TD>
<td colspan="100">< th>Topic Subject</th></td>
<td colspan="40%">< th>Launch By</th></td>
<td colspan="40%">< th>Launch Date</th></td></tr>
<%
For Each stropt in Request.QuerySt ring
Response.Write "<tr><td>" & Request.QuerySt ring(stropt) & "</td></tr>"
Next
%>
so how can use where clouse i am using "where top_id=stropt "
error is invalid column name
i am now try with other but if u are free than help me soon plz

**Ranjan kumar Barik** · Oct 26 '07, 08:23 AM

Originally posted by idsanjeev

sir i am using this code for disply on next page acording to link but i am getting only one top_id not all row
Set R = Conn.Execute("S ELECT top_id, top_sub, launch_by, launch_dt, msg FROM topmaster ")
%>
<table border="1">
<tr><TD colspan="15%">< th>Topic Id</th></TD>
<td colspan="100">< th>Topic Subject</th></td>
<td colspan="40%">< th>Launch By</th></td>
<td colspan="40%">< th>Launch Date</th></td></tr>
<%
For Each stropt in Request.QuerySt ring
Response.Write "<tr><td>" & Request.QuerySt ring(stropt) & "</td></tr>"
Next
%>
so how can use where clouse i am using "where top_id=stropt "
error is invalid column name
i am now try with other but if u are free than help me soon plz

Hi , sanjeev
What i have understood you are displaying all the records in the 1st page. And you have linked "top_sub" column.
Now when the user clicks you are sending him to the next page.
As per my suggestion I am just passing an "opt" with value "top_id" of the same row with the url of the next page.
Now you have to do like this;

Code:

strOpt = Request.QueryString("strOpt")
Set R = Conn.Execute("SELECT top_id, top_sub, launch_by, launch_dt, msg FROM topmaster where top_id = '" & stOpt & "'")

And populate the Row with the retrieved values not with the stropt. Fine.
Please inform if you are confused.
And yes If I am not wrong you are only displaying the linked row in the next page
Good day

**idsanjeev** · Oct 26 '07, 09:53 AM

you are not wrong but i am very confuse becouse where clouse produce error
i am using with your link code and got some row display detail but some is not display what is the reason becouse the code is same for all
i am also want to insert the top_id value into another table automatic when click on reply code is used
[code=asp]
<%@language=vbs cript%>
<%option explicit%>
<%
dim my_conn_stRing, conn,R,R1, sql,Rcount,Rpag e,page,i,strout put,repcount,re ply,topid,strop t
MY_CONN_STRING = "dsn=oracle;uid =starter;pwd=st arter;"
Set Conn = server.createob ject("ADODB.Con nection")
Conn.open MY_CONN_STRING
set R = Server.CreateOb ject("ADODB.Rec ordset")
sql= "SELECT top_id, top_sub,launch_ by,launch_dt from topmaster order by top_id "
R.Open SQL, Conn, 3, 1, &H0001
R.PageSize=3
Repcount=R.Reco rdCount
Rcount=R.Record Count
Rpage=R.PageCou nt
if Request.QuerySt ring("Reply")=" " then
Reply=1
else
Reply=cint((Req uest.QueryStrin g("Reply")))
end if
if Request.queryst ring("page")="" then
page=1
else
page=cint((Requ est.querystring ("page")))
end if
%>
<html>
<head><TITLE>VO ICE OF BARAUNIANS</TITLE></head>
<body>
<br><br>&nbs p;
<div style="Position :Absolute; width:970; TOP:100; left:15>
<meta http-equiv="Content-Type" content="text/html; charet=iso-8859-1">
</head>
<body bgcolor="#FFFFF F" margin width=0 margin height=0>
<form action="brvoice .asp" method="get">
<table width="980" border="0" cellspacing="1" cellpadding="3" bgcolor="#00000 0">
<tr bgcolor="#CCCCF F">
<td >TOPIC ID</td>
<td bgcolor="#CCCCF F" colspan="100%"> TOPIC SUBJECT</td>
<td bgcolor="#CCCCF F">POSTED BY</td>
<td bgcolor="#CCCCF F">POSTED DATE</td>
<td bgcolor="#CCCCF F">REPLY</td>
</tr>
<%
if not R.eof then
R.Move (page-1)*R.pagesize
end if
if not R.eof then
for i=1 to R.pagesize%>
<tr bgcolor="#FFFFF F">
<td><%=R("top_i d")%></td>
<td align="left" colspan="100%"> <font face="arial" size=2><a href=voice.asp? opt=<%=R("top_i d")%><%=R("top_ sub")%><%=R("la unch_by")%><%=R ("launch_dt")%> ><%Response.Wri te R("top_sub")% ></a></font></td>
<td><%=R("launc h_by")%></td>
<td><%=R("launc h_dt")%></td>
<td><a href=voicereply .asp?opt2=<%=R( "top_id")%>>Rep ly</a></td>
</tr>
<%
if request.QuerySt ring("opt") then
stropt=opt
end if
if request.QuerySt ring("opt2") then
stropt2=opt2
end if
R.movenext
If R.EOF Then
Exit For
end if
next
end if%>
</table>
<table width="500" border="0" cellspacing="1" cellpadding="3" >
<tR align="right" bgcolor="#FFFFF F">
<td> <%If page>1 Then %> <a href="brvoice.a sp?page=<%=page-1%>">Previous</a>
<%end if %>
<% If page < rpage Then %> <a href="brvoice.a sp?page=<%=page +1%>">Next</a>
<% end if %>
<%if rpage>2 then
for i=1 to Rpage
Response.write "<a href=""brvoice. asp?page="&i&"" ">"&i&"</a> "
next
end if%> </td>
</tr>
</table>
<table width=765>
<tr>
<td align='Right'>< input type="button" name="submit" value="Back" onclick="brvoic e()"></td>
<td><input type ="button" value="EXIT" onClick="window .close()"></td>
</tr>
</table>
<script language="Javas cript">
function brvoice()
{
window.location = "brvoice.as p"
}

function Reply()
{
window.location = "voiceReply.asp "
}
function voice()
{
window.location = "voice.asp"
}
function newtopic()
{
window.location = "newtopic.a sp"
}
</script>
</form>
</body>
</html>
<% R.Close()%>

for insert top_id which display on page into new table topic thats code is
<%@ Language=VBScri pt%>
<%Option Explicit%>
<html>
<head>
<title>Voice of baraunians</title>

</head>
<body>
<div style="Position :Absolute; top:'100'; left:'20'; width:'970'; height:'472'; background-color:'skyblue' ">
<%
Dim R, stropt2,stropt
Dim R1,R2,vrepby,vt opid,vrepid,vre pdt,vreply,erro rMsg,conn,i
Set conn = Server.Createob ject("ADODB.Con nection")
conn.Open "DSN=ORACLE ; User ID = STARTER; Password = STARTER"
Set R = Server.CreateOb ject("ADODB.Rec ordset")
Set R1 = Server.CreateOb ject("ADODB.Rec ordset")
Set R2 = Server.CreateOb ject("ADODB.Rec ordset")
Set R2 = Conn.Execute("S ELECT top_id, top_sub, launch_by, launch_dt, msg FROM topmaster ")
%><form action =brvoce.asp method=get><br>
<center><b><fon t face="arial"><h 2>POST YOUR REPLY</h2></font></b></center>
<hr>
<p>
<div style="position :absolute; left:'300'; top:'90'; z-index:0">
<table border=0 width=400 > <font face="monotype corsiva"><b>Top ic</b></center></font>
<%For Each stropt2 in Request.QuerySt ring%>
<tr><TD ><th>Topic Id</th></TD><%Response.W rite "<td>" & Request.QuerySt ring(stropt2) & "</td></tr>"%>
</tr>
<%next%>
</table>
</form>
</div>
<form method="post" action="voicere ply.asp">
<%
R.Open "Select rep_id from topic order by rep_id", conn, adOpenStatic, adLockOptimisti c, adCmdText
If R.Recordcount > 0 Then
R.Movelast
vrepid = R("rep_id")
vrepid = CInt(vrepid) + 1
Else
vrepid = 1
End if
R.Close
If Not IsEmpty(Request .Form("submit") ) then
vreply = Request.Form("v reply")
vtopid = Request.queryst ring("stropt2")
vtopid = trim(vtopid)
vrepid = trim(vrepid)
vreply = trim(vreply)
If len(errorMsg) = 0 Then
If len(vreply) = 0 Then
errorMsg = "Your must enter your Reply"
Elseif len(vreply) > 500 Then
errorMsg = "The voice you are entered is not longer than 500 characters. Please reduce the size."
End If
End If
If len(errorMsg) = 0 Then
conn.Close
conn.Mode = adModeReadWrite
conn.Open
R.Open "Select * from topic ", conn, adOpenStatic, adLockOptimisti c, adCmdText
For Each stropt2 in Request.QuerySt ring
R.Addnew
R("top_id") = vtopid
R("rep_id") = vrepid
R("rep_by") = request.cookies ("userid")
R("rep_dt") = Cdate(now())
R("reply") = vreply
R.UPdate
R.Close
next
end if
end if
If len(errorMsg) > 0 Then
Response.Write "<p><b><fon t color='red'>" & errorMsg & "</font></b></p>"
End If
%>
<script language = "javascript ">
function brvoice()
{
window.location = "brvoice.as p"
}
</script>
<div style="position :absolute; left:0; top:250; z-index:0">
<table width=820>
<tr>
<table align="center">
<tr>
<input type="hidden" name="vtopid" value="<%=vtopi d %>">
<td align="right">< font face="arial" size=2><b>Reply : </b></font></td>
<td align='left'><i nput type="text" style="width:40 0px" style= "height:100 px" name="vreply"></td>
</tr>
</table>
</tr>
<tr>
<table align="center">
<tr>
<td align="center"> <input type="Submit" name="submit" value="Save">
<td><input type="reset" name="reset" value="Reset"></td>
<td><input type="button" name="Back" value="Back" onclick="brvoic e()"></td>
<td><input type ="button" value="EXIT" onClick="window .close()"></td>
</td>
</tr>
</table>
</tr>
</table>
</div>
</form>
</body>
</html>[/code]
i am just fraser so very confuse thats why i m giving u full code becouse problems where i don't know

**idsanjeev** · Oct 27 '07, 05:53 AM

i am using with your link code and get row detail but one problems i but problems if any space between topic subject then next any record could not display and if no sapace in topicsubject then detail of record is dispalyed thats is i want but in single row .
another problems is to insert the top_id value in to other table with reply automatically when click so how can store it for insert
[code=asp] for display
Set R = Conn.Execute("S ELECT top_id, top_sub, launch_by, launch_dt, msg FROM topmaster where top_id = '" & strOpt & "'")
%>
<table border="0" width="900">
<tr><TD colspan="15%">< th>Topic Id</th></TD>
<td colspan="100%"> <th>Topic Subject</th></td>
<td colspan="40%">< th>Launch By</th></td>
<td colspan="40%">< th>Launch Date</th></td></tr>
<%
For Each stropt in Request.QuerySt ring
Response.Write "<tr><td>" & Request.QuerySt ring(stropt) & "</td></tr>"
Next
%>
</table>

fro insert reply(code):-
<%@ Language=VBScri pt%>
<%Option Explicit%>
<html>
<head>
<title>Voice of baraunians</title>

</head>
<body>
<div style="Position :Absolute; top:'100'; left:'20'; width:'970'; height:'472'; background-color:'skyblue' ">
<form method="post" action="voicere ply.asp">
<%
Dim R,r1, stropt2,stropt
Dim vrepby,vtopid,v repid,vrepdt,vr eply,errorMsg,c onn,i
Set conn = Server.Createob ject("ADODB.Con nection")
conn.Open "DSN=ORACLE ; User ID = STARTER; Password = STARTER"
Set R = Server.CreateOb ject("ADODB.Rec ordset")
Set R1 = Server.CreateOb ject("ADODB.Rec ordset")
Set R1 = Conn.Execute("S ELECT top_id, top_sub, launch_by, launch_dt, msg FROM topmaster ")
%><br>
<center><b><fon t face="arial"><h 2>POST YOUR REPLY</h2></font></b></center>
<hr>
<p>
<div style="position :absolute; left:'180'; top:'90'; z-index:0">
<table border=0 width=400 >
<%
For Each stropt2 in Request.QuerySt ring
%>
<tr><TD ><th><font face="monotype corsiva"><b>Top ic ID</b></center></font></th></TD><%Response.W rite "<td>" & Request.QuerySt ring(stropt2) & "</td></tr>"%>
</tr>
<%next%>
</table>

</div>
<%
R.Open "Select rep_id from topic order by rep_id", conn, adOpenStatic, adLockOptimisti c, adCmdText
If R.Recordcount > 0 Then
R.Movelast
vrepid = R("rep_id")
vrepid = CInt(vrepid) + 1
Else
vrepid = 1
End if
R.Close
If Not IsEmpty(Request .Form("submit") ) then
vtopid=request. form("vtopid")
vreply = Request.Form("v reply")
vtopid=trim(vto pid)
vrepid = trim(vrepid)
vreply = trim(vreply)
If len(errorMsg) = 0 Then
If len(vreply) = 0 Then
errorMsg = "Your must enter your Reply"
Elseif len(vreply) > 500 Then
errorMsg = "The voice you are entered is not longer than 500 characters. Please reduce the size."
End If
End If
If len(errorMsg) = 0 Then
conn.Close
conn.Mode = adModeReadWrite
conn.Open
R.Open "Select * from topic ", conn, adOpenStatic, adLockOptimisti c, adCmdText
R.Addnew
R("top_id") = request.form("v topid")
R("rep_id") = vrepid
R("rep_by") = request.cookies ("userid")
R("rep_dt") = Cdate(now())
R("reply") = vreply
R.UPdate
R.Close
end if
end if
If len(errorMsg) > 0 Then
Response.Write "<p><b><fon t color='red'>" & errorMsg & "</font></b></p>"
End If
%>
<script language = "javascript ">
function brvoice()
{
window.location = "brvoice.as p"
}
</script>
<div style="position :absolute; left:0; top:250; z-index:0">
<table width=820>
<tr>
<table align="center">
<tr>
<input type="hidden" name="vtopid" value="<%=vtopi d%>">
<td align="right">< font face="arial" size=2><b>Reply : </b></font></td>
<td align='left'><i nput type="text" style="width:40 0px" style= "height:100 px" name="vreply"></td>
</tr>
</table>
</tr>
<tr>
<table align="center">
<tr>
<td align="center"> <input type="Submit" name="submit" value="Save">
<td><input type="reset" name="reset" value="Reset"></td>
<td><input type="button" name="Back" value="Back" onclick="brvoic e()"></td>
<td><input type ="button" value="EXIT" onClick="window .close()"></td>
</td>
</tr>
</table>
</tr>
</table>
</div>
</form>
</body>
</html>

**idsanjeev** · Oct 29 '07, 11:16 AM

Hello Mr. Ranjan
i am getting my result after ussing WHERE clause i.e. "where top_id = strOpt"
at correct position.
thanks for guidence ok by.

**Ranjan kumar Barik** · Oct 31 '07, 05:59 AM

Originally posted by idsanjeev

Hello Mr. Ranjan
i am getting my result after ussing WHERE clause i.e. "where top_id = strOpt"
at correct position.
thanks for guidence ok by.

You are most wellcome
Nice programming.

link with column

link with column

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment