469,331 Members | 1,885 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,331 developers. It's quick & easy.

link with column

idsanjeev
241 100+
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.
Oct 24 '07 #1
10 1439
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
Oct 24 '07 #2
idsanjeev
241 100+
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)
Expand|Select|Wrap|Line Numbers
  1. <%@ Language =vbscript%>
  2. <% Option Explicit %>
  3. <html>
  4. <head><TITLE>VOICE OF BARAUNIANS</TITLE></head>
  5. <body>
  6. <!--#include file="front.inc"-->
  7. <div style="Position:Absolute; width:700; TOP:0; left:180; background-color:#f0f0f0">
  8. <%
  9. Dim conn
  10. dim objrs
  11. Dim R
  12. Dim R1
  13. Dim radio1
  14. Dim vtopsub
  15. dim vtopid
  16. dim vempno
  17. Dim countloop
  18. Dim replycount
  19. Set conn = Server.CreateObject("ADODB.Connection")
  20. conn.Open("DSN=ORACLE; User Id = STARTER; Password = STARTER")
  21. Set R = Server.CreateObject("ADODB.Recordset")
  22. Set R1 = Server.CreateObject("ADODB.Recordset")
  23. Set R = Conn.Execute("SELECT top_id, top_sub, launch_by, launch_dt FROM topmaster order by top_id  ")
  24.  
  25. %>
  26. <form action=voicereply.asp method=post>
  27. <div style="Position:Absolute; top:100; left:0; width:820; height:472; background-color:skyblue">
  28. <table border=0>
  29.   <tr>
  30.     <td align='center' colspan='10%' bgcolor='#f0f0f0'><font face="arial" size=2><b>Top Id</b></font></td>
  31.     <td align='center' colspan='90%' bgcolor='#f0f0f0'><font face="arial" size=2><b>Topic</b></font></td>
  32.     <td align='center' colspan='40%' bgcolor='#f0f0f0'><font face="arial" size=2><b>Employee Name</b></font></td>
  33.     <td align='center' colspan='20%' bgcolor='#f0f0f0'><font face="arial" size=2><b>Posted Date</b></font></td>
  34.     <td align='center' colspan='10%' bgcolor='#f0f0f0'><font face="arial" size=2><b>No.Of Reply</b></font></td>
  35.     <td align='center' colspan='10%' bgcolor='#f0f0f0'><font face="arial" size=2><b>Reply</b></font></td>
  36.   </tr>
  37. <%
  38.   If Not R.EOF Then    
  39.   R.Movefirst
  40.   countloop = 1
  41.   Do While Not R.EOF%>
  42.     <tr>
  43.       <td align='right' colspan='10%'><font face="arial" size=2><%Response.Write R("top_id")%></font></td>
  44.       <td align='left' colspan='90%'><font face="arial" size=2><a href=voice.asp><%Response.Write R("top_sub")%></a></font></td>
  45.       <td align='left' colspan='40%'><font face="arial" size=2><%Response.Write R("launch_by")%></font></td>
  46.       <td align='center' colspan='20%'><font face="arial" size=2><%Response.Write R("launch_dt")%></font></td>
  47.       <%Set R1 = Conn.Execute("SELECT top_id, rep_id from topic where top_id = " & R("top_id"))
  48.       If R1.Recordcount >= 0 Then
  49.         replycount = R1.Recordcount
  50.       else
  51.         replycount = 0
  52.       end if %>
  53.      <td><input type="radio" name="Radio1" value="<%=R("top_id")%>"></td>
  54.    </tr>
  55.     <%
  56. response.cookies("vtopid")= R("top_id")
  57.     countloop = countloop + 1
  58.     If countloop <= 10 Then
  59.       R.Movenext
  60.     Else
  61.       R.Movenext
  62.     End If
  63.   Loop %>
  64.  
  65. </table>
  66.  
  67. <table width=765>
  68.   <tr>
  69.     <td align='right'><input type="submit" name="submit" value="Reply" onclick="reply()"></td>
  70.       <td><input type ="button" value="EXIT" onClick="window.close()"></td>
  71.  
  72.   </tr>
  73. </table>
  74. <%end if%>
  75. </div>
  76. <%conn.close
  77. Set conn = Nothing
  78. %>
  79. <script language="Javascript">
  80. function brvoice()
  81. {
  82.   window.location = "brvoice.asp"
  83. }
  84.  
  85. function reply()
  86. {
  87.   window.location = "voicereply.asp"
  88. }
  89. function voice()
  90. {
  91.   window.location = "voice.asp"
  92. }
  93. function newtopic()
  94. {
  95.   window.location = "newtopic.asp"
  96. }
  97. </script>
  98. </body>
  99. </from>
  100. </html>
  101.  
  102. 2)for disply
  103.  
  104. <% @ Language =vbscript%>
  105. <% Option Explicit %>
  106. <html>
  107. <head><TITLE>VOICE OF BARAUNIANS</TITLE></head>
  108. <body>
  109. <!--#include file="front.inc"-->
  110. <%If Request.Cookies("userid") = "" Then
  111.   Response.Redirect "login.asp"
  112. Else%>
  113. <div style="Position:Absolute; width=700; TOP:100; left:180; background-color: #e0e0e0">
  114. <%
  115. Dim conn
  116. Dim R
  117. Dim R1
  118. Dim i
  119. Set conn = Server.CreateObject("ADODB.Connection")
  120. conn.Open("DSN=ORACLE; User Id = STARTER; Password = STARTER")
  121. Set R = Server.CreateObject("ADODB.Recordset")
  122. Set R1 = Server.CreateObject("ADODB.Recordset")
  123. Set R = Conn.Execute("SELECT 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 ")
  124. %>
  125. <table border=2 width=700 >
  126.   <tr>
  127.     <td align='center' bgcolor='lightgrey'>Topic Id</td><td colspan='10%' align='right'><%Response.Write R("top_id")%></td>
  128.   </tr>
  129.  
  130.      <tr>
  131.    <td align='center' bgcolor='lightgrey'>Topic Subject</td><td colspan='10%' align='right'><%Response.Write  R("top_sub") %></td>
  132.      </tr>
  133.      <tr>
  134.      <td align='center' bgcolor='lightgrey'>Employee Name</td><td colspan='40%' align='right'><%Response.Write R("launch_by") %></td>
  135.      </tr>   
  136.      <tr>
  137.      <td align='center' bgcolor='lightgrey'>Posted Date</td><td colspan='40%' align='right'><%Response.Write R("launch_dt")%></td>
  138.      </tr>
  139.      <tr>
  140.      <td align='center' bgcolor='lightgrey'>No.Of Reply</td>
  141.      </tr>
  142.  
  143.       <table><b> VOICE</b>
  144.       <tr><td colspan='10%' align='left'><%Response.Write R("msg")%></td></tr>
  145.       </table>
  146. <%
  147.  
  148. conn.close
  149. Set conn = Nothing
  150. %>
  151. <script language="Javascript">
  152. function brvoice()
  153. {
  154.   window.location = "brvoice.asp"
  155. }
  156.  
  157. function voicereply()
  158. {
  159.   window.location = "voicereply.asp"
  160. }
  161. function voice()
  162. {
  163.   window.location = "reply.asp"
  164. }
  165. </script>
  166.    <br>
  167.    <table border=1; width = 700>
  168.        <tr>
  169.         <table align="center">
  170.          <tr>
  171.            <td align="center"><input type="button" name="post voice"  value="Vew Report" onclick= "voice()">
  172.            <td align="center"><input type="button" name="post voice"  value="Reply" onclick= "voicereply()">
  173.                              <td><input type="button" name="Back" value="Back" onclick="brvoice()"></td>
  174.            </td>   
  175.           </td>
  176.          </tr>
  177.         </table>
  178.        </tr>
  179.       </table>
  180. <% End If %>
  181. </body>
  182. </html>
Oct 25 '07 #3
Hi , Sanjeev
In the First Page you are displaying the data from topmaster table.
Here You are linking the coloumn as;
Expand|Select|Wrap|Line Numbers
  1.     <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;
Expand|Select|Wrap|Line Numbers
  1.     <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.
Oct 25 '07 #4
idsanjeev
241 100+
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
Oct 26 '07 #5
idsanjeev
241 100+
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("SELECT 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.QueryString
Response.Write "<tr><td>" & Request.QueryString(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
Oct 26 '07 #6
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("SELECT 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.QueryString
Response.Write "<tr><td>" & Request.QueryString(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;
Expand|Select|Wrap|Line Numbers
  1. strOpt = Request.QueryString("strOpt")
  2. 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
Oct 26 '07 #7
idsanjeev
241 100+
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
Expand|Select|Wrap|Line Numbers
  1. <%@language=vbscript%>
  2. <%option explicit%>
  3. <%
  4. dim my_conn_stRing, conn,R,R1, sql,Rcount,Rpage,page,i,stroutput,repcount,reply,topid,stropt
  5. MY_CONN_STRING = "dsn=oracle;uid=starter;pwd=starter;" 
  6. Set Conn = server.createobject("ADODB.Connection")
  7. Conn.open MY_CONN_STRING
  8. set R = Server.CreateObject("ADODB.Recordset")
  9. sql= "SELECT top_id, top_sub,launch_by,launch_dt from topmaster order by top_id "
  10. R.Open SQL, Conn, 3, 1, &H0001 
  11. R.PageSize=3
  12. Repcount=R.RecordCount
  13. Rcount=R.RecordCount 
  14. Rpage=R.PageCount
  15. if Request.QueryString("Reply")="" then
  16. Reply=1 
  17. else
  18.  Reply=cint((Request.QueryString("Reply")))
  19.  end if
  20. if Request.querystring("page")="" then 
  21.   page=1
  22. else
  23.   page=cint((Request.querystring("page")))
  24. end if
  25. %>
  26. <html>
  27. <head><TITLE>VOICE OF BARAUNIANS</TITLE></head>
  28. <body>
  29. <!--#include file="front.inc"--><br><br>&nbsp;
  30. <div style="Position:Absolute; width:970; TOP:100; left:15>
  31. <meta http-equiv="Content-Type" content="text/html; charet=iso-8859-1">
  32. </head>
  33. <body bgcolor="#FFFFFF" margin width=0 margin height=0>
  34. <form action="brvoice.asp" method="get">
  35. <table width="980" border="0" cellspacing="1" cellpadding="3" bgcolor="#000000">
  36. <tr bgcolor="#CCCCFF"> 
  37.   <td >TOPIC ID</td>
  38.   <td bgcolor="#CCCCFF" colspan="100%">TOPIC SUBJECT</td>
  39.   <td bgcolor="#CCCCFF">POSTED BY</td>
  40.   <td bgcolor="#CCCCFF">POSTED DATE</td>
  41.   <td bgcolor="#CCCCFF">REPLY</td>
  42.   </tr>
  43.  <%
  44. if not R.eof then
  45. R.Move (page-1)*R.pagesize
  46. end if
  47. if not R.eof then
  48.   for i=1 to R.pagesize%> 
  49.   <tr bgcolor="#FFFFFF"> 
  50.     <td><%=R("top_id")%></td>
  51.     <td align="left" colspan="100%"><font face="arial" size=2><a href=voice.asp?opt=<%=R("top_id")%><%=R("top_sub")%><%=R("launch_by")%><%=R("launch_dt")%>><%Response.Write R("top_sub")%></a></font></td>
  52.     <td><%=R("launch_by")%></td>
  53.     <td><%=R("launch_dt")%></td>
  54.     <td><a href=voicereply.asp?opt2=<%=R("top_id")%>>Reply</a></td>
  55.   </tr>
  56.   <%
  57.   if request.QueryString("opt") then
  58.   stropt=opt
  59.   end if
  60.   if request.QueryString("opt2") then
  61.   stropt2=opt2
  62.   end if
  63.  R.movenext
  64.  If R.EOF Then 
  65.  Exit For 
  66.  end if
  67.  next
  68. end if%> 
  69. </table> 
  70. <table width="500" border="0" cellspacing="1" cellpadding="3" >
  71. <tR align="right" bgcolor="#FFFFFF"> 
  72.   <td> <%If page>1 Then %> <a href="brvoice.asp?page=<%=page-1%>">Previous</a> 
  73.     <%end if %> 
  74.     <% If page < rpage Then %> <a href="brvoice.asp?page=<%=page+1%>">Next</a> 
  75.     <% end if %> 
  76.     <%if rpage>2 then
  77.           for i=1 to Rpage
  78.               Response.write "<a href=""brvoice.asp?page="&i&""">"&i&"</a> "
  79.           next
  80.     end if%> </td>
  81.    </tr>
  82.   </table>
  83.   <table width=765>
  84.   <tr>
  85.     <td align='Right'><input type="button" name="submit" value="Back" onclick="brvoice()"></td>
  86.       <td><input type ="button" value="EXIT" onClick="window.close()"></td>
  87.   </tr>
  88. </table>
  89. <script language="Javascript">
  90. function brvoice()
  91. {
  92.   window.location = "brvoice.asp"
  93. }
  94.  
  95. function Reply()
  96. {
  97.   window.location = "voiceReply.asp"
  98. }
  99. function voice()
  100. {
  101.   window.location = "voice.asp"
  102. }
  103. function newtopic()
  104. {
  105.   window.location = "newtopic.asp"
  106. }
  107. </script>
  108. </form>
  109.  </body>
  110. </html>
  111. <% R.Close()%>
  112.  
  113. for insert top_id which display on page into new table topic thats code is 
  114. <%@ Language=VBScript%>
  115. <%Option Explicit%>
  116. <html>
  117. <head>
  118. <title>Voice of baraunians</title>
  119. <!--#include file="front.inc"-->
  120. </head>
  121. <body>
  122. <div style="Position:Absolute; top:'100'; left:'20'; width:'970'; height:'472'; background-color:'skyblue'">
  123. <%
  124. Dim R, stropt2,stropt
  125. Dim R1,R2,vrepby,vtopid,vrepid,vrepdt,vreply,errorMsg,conn,i
  126. Set conn = Server.Createobject("ADODB.Connection")
  127. conn.Open "DSN=ORACLE; User ID = STARTER; Password = STARTER"
  128. Set R = Server.CreateObject("ADODB.Recordset")
  129. Set R1 = Server.CreateObject("ADODB.Recordset")
  130. Set R2 = Server.CreateObject("ADODB.Recordset")
  131. Set R2 = Conn.Execute("SELECT top_id, top_sub, launch_by, launch_dt, msg FROM topmaster ")
  132. %><form action =brvoce.asp method=get><br>
  133.    <center><b><font face="arial"><h2>POST YOUR REPLY</h2></font></b></center>
  134.     <hr>
  135.     <p>
  136. <div style="position:absolute; left:'300'; top:'90'; z-index:0">
  137. <table border=0 width=400 > <font face="monotype corsiva"><b>Topic</b></center></font>
  138. <%For Each stropt2 in Request.QueryString%>
  139. <tr><TD ><th>Topic Id</th></TD><%Response.Write "<td>" & Request.QueryString(stropt2) & "</td></tr>"%>
  140.      </tr>
  141.         <%next%>
  142. </table>
  143. </form>
  144.  </div>
  145. <form method="post" action="voicereply.asp">
  146. <%
  147.   R.Open "Select rep_id from topic order by rep_id", conn, adOpenStatic, adLockOptimistic, adCmdText
  148.   If R.Recordcount > 0 Then
  149.     R.Movelast
  150.     vrepid = R("rep_id")
  151.     vrepid = CInt(vrepid) + 1
  152.   Else
  153.     vrepid = 1
  154.   End if
  155.   R.Close
  156.   If Not IsEmpty(Request.Form("submit")) then
  157.     vreply = Request.Form("vreply")
  158.     vtopid = Request.querystring("stropt2")
  159.   vtopid = trim(vtopid)
  160.     vrepid = trim(vrepid)
  161.     vreply = trim(vreply)
  162.     If len(errorMsg) = 0 Then
  163.       If len(vreply) = 0 Then
  164.         errorMsg = "Your must enter your Reply"
  165.       Elseif len(vreply) > 500 Then
  166.         errorMsg = "The voice you are entered is not longer than 500 characters. Please reduce the size."
  167.       End If
  168.     End If
  169.     If len(errorMsg) = 0 Then
  170.       conn.Close
  171.       conn.Mode = adModeReadWrite
  172.       conn.Open
  173.       R.Open "Select * from topic ", conn, adOpenStatic, adLockOptimistic, adCmdText
  174.        For Each stropt2 in Request.QueryString
  175.      R.Addnew
  176.       R("top_id") = vtopid
  177.       R("rep_id") = vrepid
  178.       R("rep_by") = request.cookies("userid")
  179.       R("rep_dt") = Cdate(now())
  180.       R("reply") = vreply
  181.       R.UPdate
  182.       R.Close
  183.       next
  184.       end if
  185. end if
  186.       If len(errorMsg) > 0 Then
  187.         Response.Write "<p><b><font color='red'>" & errorMsg & "</font></b></p>"
  188.       End If
  189. %>
  190. <script language = "javascript">
  191. function brvoice()
  192. {
  193.   window.location = "brvoice.asp"
  194. }
  195. </script>
  196. <div style="position:absolute; left:0; top:250; z-index:0">
  197. <table width=820>
  198.   <tr>
  199.     <table align="center">
  200.       <tr>
  201.         <input type="hidden" name="vtopid" value="<%=vtopid %>">
  202.         <td align="right"><font face="arial" size=2><b>Reply : </b></font></td>
  203.         <td align='left'><input type="text" style="width:400px" style= "height:100px" name="vreply"></td>
  204.       </tr>
  205.     </table>
  206.   </tr>
  207.   <tr>
  208.     <table align="center">
  209.       <tr>
  210.         <td align="center"><input type="Submit" name="submit" value="Save">
  211.                            <td><input type="reset" name="reset" value="Reset"></td>
  212.                            <td><input type="button" name="Back" value="Back" onclick="brvoice()"></td>
  213.                            <td><input type ="button" value="EXIT" onClick="window.close()"></td>
  214.         </td>
  215.       </tr>
  216.     </table>
  217.   </tr>
  218. </table>
  219. </div>
  220.  </form>
  221. </body>
  222. </html>
i am just fraser so very confuse thats why i m giving u full code becouse problems where i don't know
Oct 26 '07 #8
idsanjeev
241 100+
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("SELECT 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.QueryString
Response.Write "<tr><td>" & Request.QueryString(stropt) & "</td></tr>"
Next
%>
</table>


fro insert reply(code):-
<%@ Language=VBScript%>
<%Option Explicit%>
<html>
<head>
<title>Voice of baraunians</title>
<!--#include file="front.inc"-->
</head>
<body>
<div style="Position:Absolute; top:'100'; left:'20'; width:'970'; height:'472'; background-color:'skyblue'">
<form method="post" action="voicereply.asp">
<%
Dim R,r1, stropt2,stropt
Dim vrepby,vtopid,vrepid,vrepdt,vreply,errorMsg,conn,i
Set conn = Server.Createobject("ADODB.Connection")
conn.Open "DSN=ORACLE; User ID = STARTER; Password = STARTER"
Set R = Server.CreateObject("ADODB.Recordset")
Set R1 = Server.CreateObject("ADODB.Recordset")
Set R1 = Conn.Execute("SELECT top_id, top_sub, launch_by, launch_dt, msg FROM topmaster ")
%><br>
<center><b><font face="arial"><h2>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.QueryString
%>
<tr><TD ><th><font face="monotype corsiva"><b>Topic ID</b></center></font></th></TD><%Response.Write "<td>" & Request.QueryString(stropt2) & "</td></tr>"%>
</tr>
<%next%>
</table>

</div>
<%
R.Open "Select rep_id from topic order by rep_id", conn, adOpenStatic, adLockOptimistic, 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("vreply")
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, adLockOptimistic, adCmdText
R.Addnew
R("top_id") = request.form("vtopid")
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><font color='red'>" & errorMsg & "</font></b></p>"
End If
%>
<script language = "javascript">
function brvoice()
{
window.location = "brvoice.asp"
}
</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="<%=vtopid%>">
<td align="right"><font face="arial" size=2><b>Reply : </b></font></td>
<td align='left'><input type="text" style="width:400px" style= "height:100px" 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="brvoice()"></td>
<td><input type ="button" value="EXIT" onClick="window.close()"></td>
</td>
</tr>
</table>
</tr>
</table>
</div>
</form>
</body>
</html>
Oct 27 '07 #9
idsanjeev
241 100+
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.
Oct 29 '07 #10
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.
Oct 31 '07 #11

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

8 posts views Thread by Andrew Phillipo | last post: by
1 post views Thread by Paul Yanzick | last post: by
4 posts views Thread by John Doe | last post: by
2 posts views Thread by JenHu | last post: by
1 post views Thread by =?Utf-8?B?UmFodnlu?= | last post: by
reply views Thread by suresh191 | last post: by
reply views Thread by Purva khokhar | last post: by
1 post views Thread by haryvincent176 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.