jag har gjort ett forum... man kan skriva å så listas rubrikerna och när man klickar på dem ser man texten men när man svarar så kan man inte se svaret....
så här ser svarkoden ut:
<!-- #Include File="adovbs.inc" -->
<!-- #Include File="connect.asp" -->
<% Request.QueryString("Id") %>
\<form method="POST" action="svara.asp?svara=skapasvar&id=\<% =Request.QueryString("id") %\>"\>
\<b\>Svara\</b\>\<br\>
Namn:\<br\>
\<input type="text" size="30" name="namn" style="font-family: tahoma, verdana, arial; font-size: 8pt"\>\<p\>
Email:\<br\>
\<input type="text" size="30" name="email" style="font-family: tahoma, verdana, arial; font-size: 8pt"\>\<p\>
Text:\<br\>
\<textarea cols="25" rows="15" name="text"\>\</textarea\>\<p\>
\<input type="hidden" name="id" value="\<% =Request.QueryString("id") %\>"\>
\<input type="submit" value="Svara" style="font-family: tahoma, verdana, arial; font-size: 8pt"\>
\</form\>
<% If Request.QueryString("svara") = "skapasvar" Then %>
<% svara = "SELECT * FROM forum"
RecSet.Open svara, Connect, adOpenStatic, adLockOptimistic
RecSet.AddNew
RecSet("SvarsNamn") = Request.Form("namn")
RecSet("Email") = Request.Form("email")
RecSet("Text") = Request.Form("text")
RecSet("SvarsId") = Request.Form("id")
RecSet.Update
RecSet.Close
%>
Du har nu svarat<p>
<% End If %>
det funkar fin fint... men sen när man går in på det inlägg där man svarat så ser man inte svaret... den koden som ska visa allt ser ut så här:
<body bgcolor="#FFFFFF">
<% Request.QueryString("Id") %>
<!-- #Include File="adovbs.inc" -->
<!-- #Include File="connect.asp" -->
<% Visa = "Select * From forum where Id = " & Request("Id")
RecSet.Open Visa, Connect, AdOpenStatic, AdLockOptimistic %> <% Do While Not RecSet.EOF %>
<table width="60%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td><%= RecSet("Namn") %></td>
</tr>
<tr>
<td><%= RecSet("Email") %></td>
</tr>
<tr>
<td<%= RecSet("Rubrik") %></td>
</tr>
<tr>
<td><%= RecSet("Text") %></td>
</tr>
</table>
<% RecSet.MoveNext
Loop %>
<% RecSet.Close %>
<hr>
Svar på inlägg:
<% Svar = "Select * From forum where SvarsId = " & Request("Id")
RecSet.Open Svar, Connect, AdOpenStatic, AdLockOptimistic %>
<% Do While Not RecSet.EOF %>
Svar av:<a href="mailto:<%= RecSet("Email") %>"><%= RecSet("Namn") %>
Svar:<%= RecSet("Text") %>
<% RecSet.MoveNext
Loop %>
<% RecSet.Close %>
<a href="svara.asp?prat=svara&id=<% =Request.QueryString("id") %>">Svara på det här inlägget</a>
som sagt ser man inte svaret... varför?
------------------
Du! är jag du? Jag ja!