Frågan#1
Tjanre!
Jag får detta fel medelande:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in date in query expression ''<font color='#3F434D'>dddd Kock!</font>''.
/luddep/gastbok/gastbok.asp, line 74
-
Med denna kod:
<% Session.lcid = 1053
Response.Buffer = true
'=========================================================================
'Här har du möjlighet att ändra vissa saker.
Dim inlsid
inlsid = 10 ' Antal inlägg per sida
Dim kantfarg
kantfarg = "#000099" ' Färgen på ramarna
'=========================================================================
%>
<html><head>
<title>Gästbok</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<script language="javascript">
<!--
function popup(url,width,height)
{
stuff = "toolbar=no,menubar=no,scrollbars=yes,resizable=no,width= " +width + ", height = " +height
window.open(url, "POPUP" , stuff );
}
//-->
</script>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gastbok.mdb")
IF Request("do") = "add" Then
Dim namn, epost, hemsid, inlagg, ip, sida, allt, hemsida
if request.serverVariables("REMOTE_ADDR") = "213.89.99.113" then
namn = ("<b><u>Ludde | Webmaster</u></b>")
epost = Request("epost")
hemsid = Request("hemsida")
inlagg = ("<font color='#3F434D'>" & Request("inlagg") & "</font>")
ip = ("213.89.99.113")
sida = Request.ServerVariables("SCRIPT_NAME")
allt = namn & "$|$" & epost & "$|$" & hemsid & "$|$" & inlagg
else
namn = Request("namn")
epost = Request("epost")
hemsid = Request("hemsida")
inlagg = Request("inlagg")
ip = Request.ServerVariables("REMOTE_ADDR")
sida = Request.ServerVariables("SCRIPT_NAME")
allt = namn & "$|$" & epost & "$|$" & hemsid & "$|$" & inlagg
end if
IF Len(hemsid) <> 0 then
IF Left(hemsid,7) = "http://" then
hemsida = hemsid
ElSE
hemsida = "http://"& hemsid
END IF
END IF
IF Len(namn) = 0 then
Session("min_gb_fel") = "Du glömde att fylla i ditt namn"
Session("uppg") = allt
Response.Redirect ""&sida&"#form"
ELSEIF Len(inlagg) = 0 then
Session("min_gb_fel") = "Du glömde att fylla i ett inlägg"
Session("uppg") = allt
Response.Redirect ""&sida&"#form"
END IF
SQL = "Insert Into gastbok (namn, hemsida, epost, inlagg, ip) Values('"& namn &"','"& hemsida &"','"&epost&"','"&inlagg&"','"&ip&"')" **** LINJE 74!
Connect.Execute(SQL)
Session("min_gb_fel") = "Inlägget är nu sparat!"
Response.Redirect sida & "#form"
ELSE
Set RecSet = Server.CreateObject("ADODB.Recordset")
If Request("sida") = "" then
page = 1
Else
page = Request("sida")
End If
RecSet.CursorLocation = 3
RecSet.CacheSize = inlsid
SQL = "Select * From gastbok Order By id DESC"
RecSet.Open SQL, Connect, 3, 3
%>
<p><b><font face="Verdana" size="3">Gästbok</font></b></p>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<%
IF RecSet.Eof then
Response.Write "<tr><td><font color='darkred' size=1><b><i>Inga inlägg i gästboken...</i></b></font><br><br></td></tr>"
ELSE
RecSet.MoveFirst
RecSet.PageSize = inlsid
TotalPages = RecSet.PageCount
RecSet.AbsolutePage = page
Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize
%>
<tr>
<td><table width="" border="0" style="border: <%=kantfarg%> 2px solid" cellpadding="0" cellspacing="0">
<tr>
<td> <table width="500" height="" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="70%" rowspan="2" valign="top"> <table width="100%" border="0" cellpadding="1" cellspacing="1">
<tr>
<td valign="top"><font size="1" face="Verdana">
<%
text = server.htmlencode(RecSet("inlagg"))
Response.Write Replace(text,vbCrLf,"<br>")
svar = RecSet("svar")
IF Len(svar) <> 0 then
Response.Write "<br><br><b>SVAR:</b><br>"
Response.Write Replace(svar,vbCrlf,"<br>")
END IF
%>
</font></td>
</tr>
</table></td>
<td width="3" style="border-right: <%=kantfarg%> 1px solid"><font size="1" face="Verdana"><img src="special.gif" width="3" height="8"></font></td>
<td width="2"><font size="1" face="Verdana"><img src="special.gif" width="3" height="8"></font></td>
<td width="30%" rowspan="2" valign="top"> <table width="100%" border="0" cellpadding="1" cellspacing="1">
<tr>
<td valign="top"><font size="1" face="Verdana">
<%
Response.Write Server.HTMLEncode(RecSet("namn")) & "<br>"
strDatum = Left(RecSet("datum"),10)
Response.Write Replace(Replace(Cdate(strDatum),Date(),"Idag"),DateAdd("d", -1, Date),"Igår") & "<br> "
strEpost = RecSet("epost")
IF Len(strEpost) <> 0 then
Response.Write "<br><a href='mailto:"&strEpost&"' title='"&strEpost&"'><b>Epost</b></a>"
luft = "ja"
END IF
strHemsida = RecSet("hemsida")
IF Len(strHemsida) <> 0 then
IF Left(strHemsida,7) = "http://" then
url = strHemsida
ELSE
url = "http://"& strHemsida
END IF
Response.Write "<br><a href='"& url &"' target='_blank' title='"&url&"'><b>Hemsida</b></a>"
END IF
If luft = "ja" then
response.Write "<br> "
End If
%>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><font size='1' face='Verdana'> </font> </td>
</tr>
<%
Count = Count + 1
RecSet.MoveNext
Loop
END IF
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing%>
<%IF totalPages > 1 then%>
<tr>
<td><div align="center"><font size="1" face="Verdana">
<%
sidan = Request.ServerVariables("SCRIPT_NAME")
'## -- Bakåt-länk funktion
If (Int(Page)) <> 1 Then
Response.Write "<a href='"&sidan&"?sida=" & (Int(Page)-1) & "' onFocus='this.blur()'>"
Response.Write "<b>« bakåt</b></a> | "
ELSE
Response.Write "« Bakåt | "
END IF
'## -- Skriver ut alla sidnumrena
For Pages = 1 To TotalPages
If (Int(Pages)) = (Int(Page)) Then
Response.Write "" & Pages & " "
ELSE
Response.Write "<a href='"&sidan&"?sida=" & Pages & "' onFocus='this.blur()'>"
Response.Write "<b>" & Pages & "</b></a> "
END IF
Next
'## -- Framåt-länk funktion
If (Int(Page)) <> (Int(TotalPages)) Then
Response.Write "| <a href='"&sidan&"?sida=" & (Int(Page)+1) & "' onFocus='this.blur()'>"
Response.Write "<b>Framåt »</b></a>"
ELSE
Response.Write "| Framåt »"
END IF%>
</font></div></td>
</tr>
<tr>
<td><font size="1" face="Verdana"> </font><br>
<hr size="2" color="<%=kantfarg%>" noshade align="center"></td>
</tr><%END IF%>
<tr> <%
IF Len(Session("uppg")) <> 0 then
myArray = split(Session("uppg"),"$|$")
namn = myArray(0)
epost = myArray(1)
hemsida = myArray(2)
inlagg = myArray(3)
Session("uppg") = ""
END IF
%>
<td><font size="1" face="Verdana"><strong>Skriv i gästboken<a name="form"></a></strong></font></td>
</tr>
<tr>
<td><form name="form1" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>?do=add">
<table border="0" cellpadding="1" cellspacing="1">
<tr>
<td><font face="Verdana" size="1">Namn:</font></td>
<td> <font face="Verdana" size="1">
<input name="namn" type="text" id="namn" value="<%=namn%>" style="border: 1px solid; font-family: verdana; font-size: 8pt">
</font></td>
</tr>
<tr>
<td><font face="Verdana" size="1">E-post:</font></td>
<td> <font face="Verdana" size="1">
<input name="epost" type="text" id="epost" value="<%=epost%>" style="border: 1px solid; font-family: verdana; font-size: 8pt">
</font></td>
</tr>
<tr>
<td><font size="1" face="Verdana">Hemsida: </font></td>
<td><font face="Verdana" size="1">
<input name="hemsida" type="text" id="hemsida" value="<%=hemsida%>" style="border: 1px solid; font-family: verdana; font-size: 8pt">
</font></td>
</tr>
<tr>
<td valign="top"><font size="1">Inlägg:</font></td>
<td> <font face="Verdana" size="1">
<textarea name="inlagg" cols="35" rows="5" wrap="VIRTUAL" id="inlagg" style="border: 1px solid; font-family: verdana; font-size: 8pt"><%=inlagg%></textarea>
</font></td>
</tr>
<%IF Len(Session("min_gb_fel")) <> 0 then%>
<tr>
<td valign="top"> </td>
<td>
<%Response.Write "<font size=1 color=darkred><b><i>"&Session("min_gb_fel")&"</i></b></font>"%>
</td>
</tr>
<%
Session("min_gb_fel") = ""
END IF
%>
<tr>
<td valign="top"> </td>
<td><input type="submit" name="Skicka2" value="Skicka" style="border: 1px solid; font-family: verdana; font-size: 8pt"></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td><font size="1" face="Verdana"> </font></td>
</tr>
<%IF TotalPages > 1 Then%>
<%End If%>
</table>
<%END IF%>
</body>
</html>
-
Så wh0t is the problemas?
