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>
241
