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

mvh
Helén

<!--#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
-->

Du har inte skrivit vad du får för problem... Sist så svarade jag att du hade koden i en HTML-fil. Har du ändrat filändelsen till asp nu?

/Johan

En gissning är att du använder <!-- och --> istället för <% och %> vid ASP-koden.


Thomas

Hejsan!

Jag är urkass på sådant här och jag kan inte riktigt beskriva vad som är felet men kan du vara snäll och titta på min sida, det går inte att skicka ett inlägg.

Här är adressen http://dockmammansstickcafe.zoomin.se/index/15720.html

Mvh
Helén

Sida skickar informationen till en sida som heter skickat.asp, den existerar inte enligt felmeddelandet. Har du lagt upp den på servern?

/Johan