HJÆLP fejl
Jeg få en fejl som sigerMicrosoft VBScript compilation error \'800a03f6\'
Expected \'End\'
/akva/Art-Artikelsys/default.ASP, line 139
Og jeg kan ikke hitte ud af den
Her er min kode
<html>
<head>
<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"akvarie_db.mdb\") & \"; UID=Administrator; PWD=\"
objConn.open DSN
response.write \"<html><head><title>Artikel oversigt</title></head><body>\"
id=request(\"id\")
if id<>\"\" then
set objRS = objConn.execute(\"select * from [artikler] where id=\"&id&\"\")
if objRS.eof then
response.write \"Artiklen du forsøger at få vist eksistere ikke !!\"
else
%>
<div align=\"center\">
<center>
<%
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM kategorier ORDER BY kategori\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"akvarie_db.mdb\")
objConn.Open DSN
id=request(\"id\")
if id<>\"\" then
set objRS = objConn.execute(\"select * from [kategorier] where id=\"&id&\"\")
if objRS.eof then
response.write \"Artiklen du forsøger at få vist eksistere ikke !!\"
else
%></select></td>
</tr>
<tr>
<td width=\"35%\" bgcolor=\"#E5E5E5\" valign=\"top\"><font face=\"Verdana\" size=\"2\"><b>Søgeord</b><br>Adskilles med komma!</font></td>
<td width=\"65%\" bgcolor=\"#E5E5E5\"><input type=\"text\" name=\"søgeord\" size=\"32\"></td>
</tr>
<tr>
<td width=\"100%\" bgcolor=\"#FCFCFC\" colspan=\"2\"><input type=\"hidden\" value=\"0\" name=\"hits\"><input type=\"submit\" value=\"Send\" name=\"send\" style=\"background-color:#E5E5E5\">
<input type=\"reset\" value=\"Annuller\" name=\"anuller\" style=\"background-color:#E5E5E5\"></td>
</tr>
<tr><td colspan=\"2\" align=\"right\" bgcolor=\"#CCCCCC\"><font size=\"1\"><b><a href=\"links.asp\" class=\"menu\">» Links</a> <a href=\"links.asp?mode=søg\" class=\"menu\">» Søg i links</a></b> </font></td></tr></table>
</form>
<p></p>
</center>
</div>
<div align=\"left\">
<table border=\"0\" cellpadding=\"4\" style=\"border-collapse: collapse; font-family:Verdana; font-size:8 pt\" bordercolor=\"#FFFFFF\" width=\"850\" id=\"AutoNumber1\" height=\"306\" bgcolor=\"#FFFFFF\" cellspacing=\"0\">
<tr>
<td width=\"250\" height=\"236\" rowspan=\"2\" align=\"center\" valign=\"top\" bordercolor=\"#C0C0C0\">
<font size=\"1\" color=\"#3366CC\">
<%response.write \"<B>Hannen : </b> \"&objRS(\"Han\")& \" \"
response.write \"<img src=\"\"/akva/images/Artikel/\"&objRS(\"grafik\")&\".jpg\"\">\"
response.write \"<br>\"
response.write \"<br>\"
response.write \"<B>Hunnen : </b> \"&objRS(\"Hun\")& \" \"
response.write \"<br>\"
response.write \"<img src=\"\"/akva/images/Artikel/\"&objRS(\"grafik_hun\")&\".jpg\"\">\"%></font></td>
<td width=\"500\" height=\"20\" align=\"left\" style=\"font-family: Verdana; font-size: 8 pt\" bgcolor=\"#FFFFCC\">
<font size=\"1\" color=\"#000000\" face=\"Verdana\">
<font color=\"#0099FF\">
<br>
</font>
</font>
<font color=\"#0099FF\">
<font size=\"2\" color=\"#000000\" face=\"Verdana\"> <%
response.write \"<B>Slægt : </B> \"&objRS(\"slagt\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Art : </B> \"&objRS(\"art\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Var : </B> \"&objRS(\"Var\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Synonym : </B> \"&objRS(\"synonym\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Populærnavn : </B> \"&objRS(\"populaernavn\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Familie : </B> \"&objRS(\"familie\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Region : </b> \"&objRS(\"region\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Biotop : </b> \"&objRS(\"biotop\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Størrelse : </b> \"&objRS(\"stoerrelse\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Kønsforskel : </b> \"&objRS(\"koensforskel\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Temperatur : </b> \"&objRS(\"temperatur\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Adfærd : </b> \"&objRS(\"adfaerd\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Social : </b> \"&objRS(\"social\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Foder : </b> \"&objRS(\"foder\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Opdræt : </b> \"&objRS(\"opdraet\")&\"<br>\"
response.write \"<br>\"
response.write \"<B>Kommentar : </b> \"&objRS(\"kommentar\")&\"<br>\" %> </font>
</font>
<font color=\"#000080\" size=\"2\" face=\"Verdana\">
<br>
</font>
<font color=\"#000000\" face=\"Verdana\">
<font color=\"#000080\" size=\"1\" face=\"Verdana\">
<B>Opdager:</B>:
<%response.write \"<B>: </B> \"&objRS(\"slagt\")&\"<br>\"%> -
<B>Førstegangsopdræt DK</B>
<%response.write \"<B>: </B> \"&objRS(\"art\")&\"<br>\"%> -
Bytter forfindes
<%response.write \"<B>: </B> \"&objRS(\"art\")&\"<br>\"%> -
Haves som original
<%response.write \"<B>: </B> \"&objRS(\"art\")&\"<br>\"%> -
</font>
</td>
</tr>
<br>
</td>
</tr>
</table>
</div>
<hr>
<font face=\"Verdana\" size=\"1\">
</font><%
end if
objRS.close : set objRS=nothing
else
set objRS = objConn.execute(\"select * from [artikler] order by art asc \")
if objRS.eof then
response.write \"<font color=\"\"blue\"\">Der var desvære ingen artsbeskrivelser i øjeblikket.</font>\"
else
do while not objRS.eof
response.write \"<a href=\"\"default.asp?target=0&id=\" & objRS(\"id\") & \"\"\">\" & objRS(\"art\") & \" - \" & objRS(\"populaernavn\") & \"</a><br>\"
objRS.movenext
loop
end if
objRS.close : set objRS=nothing
objConn.close : set objConn=nothing
end if
%>
</font>
</font>
</body></html>
