okay så får i hele siden hehe.. koden her siger så stadig fejlen
Expected end of statement
.. her får i den...
<html>
<head>
<title></title>
<body bgcolor="#FFFFFF" text="#000000" link="#0066CC" vlink="#0066CC" alink="#0066CC">
<div align="center"> </div>
<o:p><font color="#FF0000" face="Geneva, Arial, Helvetica, san-serif" size="2"></font></o:p><o:p></o:p>
<tr>
<td>
<div align="center"><br>
</div>
<br>
<table width="949" height="0" cellspacing="1" align="center" cellpadding="2" border="0" bgcolor="#000000">
<tr bgcolor="#FFFFFF">
<td width="40%">
<table width="753" height="8" cellspacing="1" align="center" cellpadding="2" border="0">
<tr>
<td valign="top" colspan="2">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font><br>
</div>
<br>
<br>
<table width="81%" height="32%" cellspacing="1" align="center" cellpadding="2" border="0" bgcolor="#000000">
<tr bgcolor="#000000">
<td width="40%" bgcolor="#FFFFFF" height="371">
<div align="center"> </div>
<table width="100%" bordercolordark="black" height="100%" cellspacing="1" border="0" cellpadding="2" align="center">
<tr bgcolor="black">
<td width="68%" bgcolor="#FFFFFF" height="20"> </td>
</tr>
<tr>
<td width="68%" height="192">
<div align="left">
<table width="75%" border="0" align="center" cellpadding="4" cellspacing="4">
<tr>
<td height="16" bgcolor="#FF9933">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="28" width="42%">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><strong><font size="2">Søgning</font></strong></font></div>
</td>
<td height="28" width="58%">
<div align="right"></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="28" bgcolor="#FFCC99">
<%
strKeyword = Trim(Request.Form("searchword"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect("citater.asp")
Else
strKeyword = Replace(strKeyword,"'","''")
End If
Response.Write "<br><a href=""forfatter.asp?rid=" & rs("id") & "&sp=title" target=""_self"">" & rs("title") & "</a> <br>"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<font color=red>Viser resultat for " & Request.Form("searchword") & "</font><br>"
Do While Not rs.EOF
Response.Write "<br><a href=""forfatter.asp?rid=" & rs("id") & "&sp=title"" target=""_self"">" & rs("title") & "</a> <br>"
Response.write rid("citat2")
rs.movenext
loop
End If
rs.MoveNext
Loop
Response.Write "<br><a href=citater.asp>Tilbage</a>"
Else
Response.Write "<center>Viser resultat 0-0 af 0 på <b>" & Request.Form("searchword") & "</b> </center><br>Intet i fundet <b>" & Request.Form("searchword") & "</b> <p> Din søgning - <b>" & Request.Form("searchword") & "</b> - gav intet resultat.</p> • prøv igen.<br> • evt. med færre ord<br> • <br> •<br><br> <a href=citater.asp>Tilbage og prøv igen</a>"
End If
myConn.Close
Set myConn = Nothing
%>
</td>
</tr>
</table>
<br>
<br>
</div>
</td>
</tr>
<p></p>
</table>
<div align="center"></div>
</td>
</tr>
</table>
<br>
</td>
</tr>
<tr>
<td bgcolor="#FFCC99" valign="top" colspan="2">
<div align="center"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<br>
<p align="center">
</p>
<br>
<p></p>
<p> </p>
<p> </p>
</body>
</html>
