Vilka felmeddelanden får du?
------------------
To understand recursion, we must first understand recursion.
Frågan#1
Hallå
Håller på med min första gästbok.
På sidan gastopen.htm skriver man sitt meddelande. När man klickar på skicka så kommer man till gast1.asp. Och på gast2.asp ska man kunna läsa meddelanden.
Men av någon anledningen så fungerar det inte.
Så här ser koderna ut:
gastopen.htm
<html>
<head>
<title>Min gästbok</title>
</head>
<body>
\<p style="margin-top: 0; margin-bottom: 0"\>\<b\>\<font face="Verdana" size="1"\>\<a href="gast2.asp"\>Läs
gästboken\</a\>\</font\>\</b\>\<Form Name="TestForm" Method="POST" Action="gast1.asp"\>
\<P\>\<font face="Verdana" size="1"\>\<b\>Namn:\</b\>\</font\> \<BR\>
\<Input Type="text" Name="Namn" Size="20" style="background-color: #C0C0C0; border: 1 solid #000000"\>\<BR\>
\<font face="Verdana" size="1"\>\<b\>
Epost:\<BR\>
\<Input Type="text" Name="Epost" Size="20" style="background-color: #C0C0C0; border: 1 solid #000000"\>\<BR\>
Inlägg:\</b\>\</font\> \<BR\>
\<Textarea Rows="8" Name="Inlagg" Cols="40" style="background-color: #C0C0C0; border: 1 solid #000000"\>\</Textarea\>\</P\>
\<p\>\<Input Type="Button" Value="Registrera" Name="B1"
onClick="B1_OnClick();
return false;" style="background-color: #C0C0C0; border: 1 solid #000000"\>
\<Input Type="reset" Value="Återställ" Name="reset" style="background-color: #C0C0C0; border: 1 solid #000000" \>
\</Form\>
<SCRIPT LANGUAGE="Javascript" </td>
function B1_OnClick(){
var nam=document.TestForm.Namn.value;
var inl=document.TestForm.Inlagg.value;
if((nam.lenght !=0) && (inl.lenght !=0)){
document.TestForm.submit();
} else {
alert("Du glömde att fylla i Namn eller Inlägg ");
}
}
</Script>
</body>
</html>
</script>
gast1.asp
<%
namn=Request.Form("Namn")
epost=Request.Form("Epost")
inlagg=Request.Form("Inlagg")
%>
<HTML>
<BODY>
<%
If Len(Trim(namn)) > 0 Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "gast"
datum = date()
If Len(Trim(epost)) = 0 Then epost = " "
sql = "Insert into Post (Namn, Epost, Inlagg, datum)"
sql = sql & "Values (" & namn & "," & Epost & "," & Inlagg & ","
sql = sql & Datum & ");"
conn.execute(sql)
conn.close
%>
<font face="Verdana" size="1"><b>Man tackar!
<%End If%>
<BR>
<A Href="gastopen.htm"> Skriv I Gästboken </A>
<BR>
<A Href="gast2.asp"> Läs inlägg </A>
</b></font>
</BODY>
</HTML>
gast1.asp
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "db/gastbok.mdb","",""
sql = "SELECT * FROM [Post] where Datum > #" & date() -5 & "#"
sql = sql & "order by ID"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>
<HTML>
<BODY>
<Table Borders="0" Width="100%">
<%Do until rs.Eof%>
<TR><TD><font face="Verdana" size="1"><b>Namn: <% = rs("Namn")%></b></font></TD>
<TR><TD><font face="Verdana" size="1"><b>Epost: <% = rs("Epost")%></b></font></TD>
<TR><TD><font face="Verdana" size="1"><b>Datum: <% = rs("Datum")%></b></font></TD></TR>
<TR>
<TD Width="100%" Colspan="3"><font face="Verdana" size="1"><b>Inlägg: <% = rs("inlägg")%>
</b></font>
<HR Size="1">
</TD>
<% rs.Movenext
Loop
Rs.Close
conn.Close %>
</TR>
</TABLE>
</BODY>
</HTML>
Någon som kan hjälpa mig??
------------------
www.Jockesweb.net
