Oj oj vad jag frågar mycket, men vad har man för val när man fattar noll:??.
Okey, här kommer frågan, har försökt
byggt upp en sida med asp, men det kommer bara upp:
Expected statement
/cgi-bin/gastbok.asp, line 101
Option Explicit
^
.
Så här ser koden ut till sidan:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<TITLE></TITLE>
<link rel="stylesheet" type"text/css" href="repti.css" title="style1">
</HEAD>
<BODY marginwidth=0 marginheight=0 leftmargin=0 topmargin=0>
<center>
<a href="http://www.tradedoubler.com/tracker.asp?code=29054"><img border= 0 src="bilder/togask-banner-animerad.gif"></a>
</center>
<a name="top"></a>
<DIV STYLE="border-width: 1px; border-color:black; text-align: center">
<table align="center" width=640 cellspacing="3" cellpaddig="0" border="0">
</tr>
<tr>
<td valign=top align=left width=100>
<font size =1><br><br><br>
<% IF Request.Querystring("link") = "lankar" THEN %>
<A HREF="lankar.asp?link=">Länkar</A><BR>
<% ELSE %>
<A HREF="lankar.asp?link=lankar">Länkar</A><BR>
<% END IF %>
<% IF Request.Querystring("link") = "lankar" THEN %>
- <A HREF="link1.asp">underlänk1</A><BR>
- <A HREF="link2.asp">underlänk2</A><BR>
- <A HREF="link3.asp">underlänk3</A><BR>
<% END IF %>
<% IF Request.Querystring("link") = "gastbok" THEN %>
<A HREF="gastbok.asp?link=">Gästbok</A><BR>
<% ELSE %>
<A HREF="gastbok.asp?link=lankar">Gästbok</A><BR>
<% END IF %>
<% IF Request.Querystring("link") = "gastbok" THEN %>
- <A HREF="link1.asp">underlänk1</A><BR>
- <A HREF="link2.asp">underlänk2</A><BR>
- <A HREF="link3.asp">underlänk3</A><BR>
<% END IF %>
<% IF Request.Querystring("link") = "forum" THEN %>
<A HREF="forum.asp?link=">Forum</A><BR>
<% ELSE %>
<A HREF="forum.asp?link=forum">Forum</A><BR>
<% END IF %>
<% IF Request.Querystring("link") = "forum" THEN %>
- <A HREF="link1.asp">underlänk1</A><BR>
- <A HREF="link2.asp">underlänk2</A><BR>
- <A HREF="link3.asp">underlänk3</A><BR>
<% END IF %>
<% IF Request.Querystring("link") = "css" THEN %>
<A HREF="css.asp?link=">Css</A><BR>
<% ELSE %>
<A HREF="forum.asp?link=css">Css</A><BR>
<% END IF %>
<% IF Request.Querystring("link") = "css" THEN %>
- <A HREF="link1.asp">underlänk1</A><BR>
- <A HREF="link2.asp">underlänk2</A><BR>
- <A HREF="link3.asp">underlänk3</A><BR>
<% END IF %>
<% IF Request.Querystring("link") = "download" THEN %>
<A HREF="download.asp?link=">Downloads</A><BR>
<% ELSE %>
<A HREF="download.asp?link=download">Downloads</A><BR>
<% END IF %>
<% IF Request.Querystring("link") = "download" THEN %>
- <A HREF="link1.asp">underlänk1</A><BR>
- <A HREF="link2.asp">underlänk2</A><BR>
- <A HREF="link3.asp">underlänk3</A><BR>
<% END IF %><br><br>
<a href="http://www.tradedoubler.com/tracker.asp?code=29042"><img border= 0 src="bilder/mj88x31_ani2.gif"></a>
<td valign=top align=left>
<%@ Language=VBScript %>
<%
Option Explicit
'Deklarerar databas variabler
Dim Connect, conntemp, DSNtemp
'Deklarerar övriga variabler
Dim inlagg
' Här skapar vi en dsn-less connection mot gbok
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("gbok.mdb")
Connect.Open DSNtemp
%>
<%
If Request.Querystring("klar") = "gastbok" then
Response.Redirect "gbproc.asp"
End if
%>
<form method="post" action="gbproc.asp?klar=gastbok">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><font size=1>
Namn:<br> <input type="text" size="15" name="namn"><br><br>
</td>
<td valign="top"><font size=1>
E-post:<br><input type=text size=15 maxlength="100" name="epost">
</td>
</tr>
<tr>
<td valign="top"><font size=1>
Ort:<br><input type=text size=15 maxlength="60" name="ort">
</td>
<td valign="top"><font size=1>
Gillar:<br><input type=text size=15 maxlength="60" name="gillar">
</td>
</tr>
<tr>
<td colspan=2 valign="top"><font size=1>
Meddelande:<br><TEXTAREA NAME="Meddelande" COLS=30 ROWS=8></textarea>
</td>
</tr>
<tr>
<td colspan=2>
<input type="submit" name="Submit" value="Skicka">
<input type="reset" value="Rensa">
</td>
</tr>
</table>
<!--Här börjar inläggen -->
<h5>Vad har besökarna skrivit.</h5>
<center><hr width="300"></center><br>
<table border="0" cellspacing="0" cellpadding="0">
<%
'Ta ut alla inlägg och sortera dom efter datum
inlagg= "SELECT Namn,Datum,Epost,Ort,Gillar,Meddelande FROM gbok WHERE id=id ORDER BY datum DESC"
Set inlagg= Connect.Execute(inlagg)
'Skriv ut alla inlägg
Do until inlagg.EOF
%>
<tr>
<td><font size=1>Namn:</td><td><font size=1><%=inlagg("Namn")%></font></td>
</tr><tr>
<td><font size=1>Datum:</td><td><font size=1><%=inlagg("Datum")%></font></td>
</tr><tr>
<td><font size=1>Epost:</td><td><font size=1><a href="mailto:<%=inlagg("Epost")%>"><%=inlagg("epost")%></a></font></td>
</tr><tr>
<td><font size=1>Ort:</td><td><font size=1><%=inlagg("Ort")%></font></td>
</tr><tr>
<td><font size=1>Gillar:</td><td><font size=1><%=inlagg("Gillar")%></font></td>
</tr><tr>
<td><font size=1>Meddelande:</td><td><font size=1><%=inlagg("Meddelande")%></font></td>
</tr><tr>
<td colspan="2"><center><hr width="300"></center></td>
</tr>
<%
inlagg.MoveNext
Loop
%>
</table>
</body>
</html>
<%
'Vid stänger databasen
Connect.close
set Connect=nothing
%>
<td valign=top align=left width="200">
</td>
</tr>
<tr>
</center>
</td>
</tr>
</table>
</div>
</BODY>
</HTML>
Tacksam för svar.
[Redigerat av cgi den 26 feb 2000]
[Redigerat av cgi den 26 feb 2000]
[Redigerat av cgi den 26 feb 2000]