Hej igen!
Hoppas ni inte blir less på mig men jag förstår ingenting, kan inget om data men så här ser det ut det som finns på min sida.

Kan du vara snäll och berätta för mig vad som är fel och kanske rätt texten åt mig...

Är så väldigt tacksam för svar..


<!--#include file="config.asp"--><!--
set connection = Server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
sql = "select * from meddelande"
connection.open strconn, 1, 2
rs.open sql, connection
if rs.eof <> "" then
do until rs.eof
--><!--ID = rs("svarid")
--><!--response.write "Inlagt av " & rs("namn") & "<br>
"
rs.movenext
loop
end if
-->
<p>&nbsp;</p>
<p>&nbsp;</p>
Vill Du sj&auml;lv skapa ett &auml;mne att diskutera? Klicka d&aring; Här <!--strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("forum.mdb") & ";"
--><!--#include file="config.asp"--><!--#include file="adovbs.inc"-->
<form action="skapat.asp">
<table width="65%" border="0">
<tbody>
<tr>
<td width="100%" bgcolor="#f9f9f2"><strong>Skapa ett eget &auml;mne h&auml;r</strong></td>
<p>&nbsp;</p>
</tr>
<tr>
<td width="30%">Namn</td>
<td width="50%"><input name="txtNamn" /></td>
</tr>
<tr>
<td width="30%">Titel</td>
<td width="50%"><input name="titel" /></td>
</tr>
<tr>
<td width="30%">Epost</td>
<td width="50%"><input name="txtEpost" /></td>
</tr>
<tr>
<td width="30%">Meddelande</td>
<td width="50%"><br />
<textarea rows="10" cols="50" name="meddelande"></textarea> </td>
</tr>
<tr>
<td width="50%"><input type="submit" value="Skicka" /> </td>
</tr>
</tbody>
</table>
</form>
<!--#include file="config.asp"--><!--#include file="adovbs.inc"--><!--
if NOT request.querystring("txtnamn") = "" AND NOT request.querystring("titel") = "" AND NOT request.querystring("meddelande") = "" then
dim namn
dim titel
dim epost
dim meddelande
namn = request.querystring("txtnamn")
titel = request.querystring("titel")
epost = request.querystring("txtEpost")
meddelande = request.querystring("meddelande")
set connection = Server.createobject("ADODB.Connection")
set rs = Server.Createobject("ADODB.Recordset")
connection.open strconn
rs.open "meddelande", strconn, adopendynamic, adlockpessimistic
rs.AddNew
rs("namn") = namn
rs("titel") = titel
rs("epost") = epost
rs("meddelande") = meddelande
rs.update
response.redirect "default.asp"
else
response.write "Du måste fylla i namn, titel och meddelande för att kunna posta något"
end if
--><!--#include file="config.asp"--><!--
set connection = server.createobject("Adodb.connection")
set rs = server.createobject("adodb.recordset")
set rs1 = server.createobject("adodb.recordset")
sql = "select * from svar where svarid = " & request.querystring("fid")
sql1 = "select * from meddelande where svarid= " & request.querystring("fid")
connection.open strconn
rs.open sql, strconn
rs1.open sql1, strconn
--><!--
response.write "HUVUDMEDDELANDE START<br>
"
response.write "Namn " &rs1("namn") & "<br>
</td>
</tr>
"
response.write "Titel : " &rs1("Titel") & "<br>
"
response.write "Epost : " & rs1("epost") & "<br>
"
response.write "Meddelande: "&rs1("meddelande") & "<br>
"
response.write "HUVUDMEDDELANDE SLUT
<p>&nbsp;</p>
"
if rs.eof <> "" then
do until rs.eof
-->
<table width="25%" border="0">
<!--
-->
<tbody>
<tr>
<td width="30%">Namn</td>
<td width="50%"><!--s("namn"--></td>
</tr>
<tr>
<td width="30%">Epost</td>
<td width="50%"><!--s("email"--></td>
</tr>
<tr>
<td width="30%">Meddelande</td>
<td width="50%"><br />
<!--s("meddelande"--></td>
</tr>
</tbody>
</table>
<p>&nbsp;</p>
<!--rs.movenext
loop
end if
-->Svara p&aring; detta meddelande
<p>&nbsp;</p>
<form action="svara.asp?fid=&lt;%=request.querystring(">
&quot; method=&quot;post&quot;&gt;
<table width="40%" border="0">
<tbody>
<tr>
<td width="50%">Namn</td>
<td width="50%"><input name="txtName" /></td>
</tr>
<tr>
<td width="50%">Epost</td>
<td width="50%"><input name="txtEpost" /></td>
</tr>
<tr>
<td width="50%">Meddelande</td>
<td width="50%"><textarea rows="10" cols="40" name="txtMeddelande"></textarea> </td>
</tr>
</tbody>
</table>
<input type="submit" value="Svara" />
</form>
<!--#include file="config.asp"--><!--#include file="adovbs.inc"--><!--
if NOT request.form("txtname") = "" AND NOT request.form("txtmeddelande") = "" then
set connection = server.createobject("Adodb.connection")
set rs = server.createobject("adodb.recordset")
connection.open strconn
rs.open "svar", strconn, adopendynamic, adlockpessimistic
svarID = request.Querystring("fid")
namn = request.form("txtName")
epost =request.form("txtEpost")
meddelande = request.form("txtmeddelande")
rs.addnew
rs("svarid") = svarID
rs("namn") = namn
rs("email") = epost
rs("meddelande") = meddelande
rs.update
rs.close
connection.close
response.redirect request.servervariables("HTTP_REFERER")
else
response.write "Du måste fylla i namn och meddelande för att det ska bli sparat."
end if
-->
mvh
Helén