Flere connections / lillefejl
Her er min kode og jeg aner ikke hvad er der er galt :( (Ikke ASP freak)<%
Response.Buffer = True
SET rs = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
if request("Mode") = "logaf" then
session.Abandon
Response.Redirect("menu.asp")
end if
IF Session("password-session") = "" Then
Response.Redirect("Default.asp")
end if
Sql = "Select * FROM users WHERE username = '" & session("password-session") & "'"
set rs = rs.Execute(SQL)
%>
<HTML>
<HEAD>
<title></title>
<base target="_self">
</HEAD>
<BODY bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000">
<center>
<table border="0" width="50%" cellspacing="1">
<tr>
<td width="100%"></td>
</tr>
<div align="right">
<table border="0" width="215" cellspacing="0" cellpadding="0" height="222" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="850"
bordercolor="#FFFFFF" style="border-collapse: collapse">
<tr>
<td width="153" valign="top">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="157">
<tr>
<td width="4" background="art/billeder/c1.gif" height="20">
<p align="left"> </td>
<td bgcolor="#FFFFFF" width="149">
<p align="center"><b><font face="Verdana">Aqua-World.dk</font></b></td>
<td width="4" height="20" background="art/billeder/c2.gif">
<p align="left"> </td>
</tr>
</table>
</div>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="164" height="208">
<tr>
<td width="15" bgcolor="#FFFFFF" height="19">
</td>
<td bgcolor="#FFFFFF" width="279" height="19">
<font face="Verdana" size="1">Bruger : <% = rs("Username") %> </font> </td>
<td width="4" bgcolor="#FFFFFF" height="19">
</td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="18">
</td>
<td bgcolor="#FFFFFF" width="279" height="18">
</td>
<td width="4" bgcolor="#FFFFFF" height="18">
</td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="18">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td bgcolor="#FFFFFF" width="279" height="18">
<font face="Verdana" size="1">Fish Speciedescription</font></td>
<td width="4" bgcolor="#FFFFFF" height="18">
</td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="19">
<p align="left">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td bgcolor="#FFFFFF" width="279" height="19">
<p align="left"><font face="Verdana" size="1">Plant
Speciedescription</font></p>
</td>
<td width="4" bgcolor="#FFFFFF" height="19">
<p align="left"> </td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="19">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td bgcolor="#FFFFFF" width="279" height="19">
</font><font face="Verdana" size="1">Forum</font></td>
<td width="4" bgcolor="#FFFFFF" height="19">
</td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="19">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td bgcolor="#FFFFFF" width="279" height="19">
<font face="Verdana" size="1">Galleri</font></td>
<td width="4" bgcolor="#FFFFFF" height="19">
</td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="19">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td bgcolor="#FFFFFF" width="279" height="19">
<font face="Verdana" size="1">Disease</font></td>
<td width="4" bgcolor="#FFFFFF" height="19">
</td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="19">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td bgcolor="#FFFFFF" width="279" height="19">
<p align="left">
<font face="Verdana" size="1">Links</font></td>
<td width="4" bgcolor="#FFFFFF" height="19">
</td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="19">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td bgcolor="#FFFFFF" width="279" height="19">
<font face="Verdana" size="1">Infomaion</font></td>
<td width="4" bgcolor="#FFFFFF" height="19">
</td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="19">
<font face="Verdana" size="1">
<img border="0" src="images/stjerne.jpg"></font></td>
<td bgcolor="#FFFFFF" width="279" height="19">
<font face="Verdana" size="1">Search</font></td>
<td width="4" bgcolor="#FFFFFF" height="19">
</td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="19">
</td>
<td bgcolor="#FFFFFF" width="279" height="19">
</td>
<td width="4" bgcolor="#FFFFFF" height="19">
</td>
</tr>
<tr>
<td width="30" bgcolor="#FFFFFF" height="19">
</td>
<td bgcolor="#FFFFFF" width="279" height="19">
<a href="art/BRUGER.ASP?mode=logaf"><font face="Verdana" size="1">Log af</font></a></td>
<td width="4" bgcolor="#FFFFFF" height="19">
</td>
</tr>
</table>
</div>
<p align="left"><font face="Verdana" size="1"> </center></font></td>
<td width="4">
<p align="left"> </td>
<td width="684" valign="top">
<center>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="672"
height="422">
<tr>
<td width="525" height="422" valign="top">
<p align="center">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="20" background="art/billeder/c1.gif" height="20">
<p align="left"> </td>
<td bgcolor="#FFFFFF">
<p align="left"><b>
<font face="Verdana" size="2">Fish Speciedescription</font></b></td>
<td width="20" background="art/billeder/c2.gif" height="20">
<p align="left"></td>
<%
end if
%>
</tr>
</table>
</div>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="519">
<tr>
<td width="4" bgcolor="#FFFFFF">
<p align="left"> </td>
<td bgcolor="#FFFFFF" width="470">
<p align="left">
<br>
<%
'// Code created by Dan Riis "Scop Design"
'// Contact: dan.riis@e-mail.dk for more information
Set objConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db.mdb") & "; UID=Administrator; PWD="
objConn.open DSN
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
response.write "<B>Slægt : </B> "&objRS("slagt")&"<br>"
response.write "<B>Art : </B> "&objRS("art")&"<br>"
response.write "<B>Var : </B> "&objRS("Var")&"<br>"
response.write "<B>Synonym : </B> "&objRS("synonym")&"<br>"
response.write "<B>Populærnavn : </B> "&objRS("populaernavn")&"<br>"
response.write "<B>Familie : </B> "&objRS("familie")&"<br>"
response.write "<B>Region : </b> "&objRS("region")&"<br>"
response.write "<B>Biotop : </b> "&objRS("biotop")&"<br>"
response.write "<B>Størrelse : </b> "&objRS("stoerrelse")&"<br>"
response.write "<B>Kønsforskel : </b> "&objRS("koensforskel")&"<br>"
response.write "<B>Temperatur : </b> "&objRS("temperatur")&"<br>"
response.write "<B>Adfærd : </b> "&objRS("adfaerd")&"<br>"
response.write "<B>Social : </b> "&objRS("social")&"<br>"
response.write "<B>Foder : </b> "&objRS("foder")&"<br>"
response.write "<B>Opdræt : </b> "&objRS("opdraet")&"<br>"
response.write "<B>Kommentar : </b> "&objRS("kommentar")& " "
response.write "<br>"
response.write "<B>Hannen : </b> "&objRS("Han")& " "
response.write "<br>"
response.write "<img src=""../Arts-billeder/"&objRS("grafik")&".jpg"">"
response.write "<br>"
response.write "<br>"
response.write "<B>Hunnen : </b> "&objRS("Hun")& " "
response.write "<br>"
response.write "<img src=""../Arts-billeder/"&objRS("grafik_hun")&".jpg"">"
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 artikler i øjeblikket.</font>"
else
do while not objRS.eof
response.write "<a href=""art.asp?target=0&id=" & objRS("id") & """>" & objRS("art") & " - " & objRS("populaernavn") & "</a><br>"
objRS.movenext
loop
end if
objRS.close : set objRS=nothing
end if
response.write "</body></html>"
objConn.close : set objConn=nothing
%>
</p>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">
<p align="right"><font face="Verdana" size="1">Date</font></td>
</tr>
</table>
</div>
</td>
<td width="4" bgcolor="#FFFFFF">
<p align="left"><br>
</td>
</tr>
</table>
</div>
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="4" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#FFFFFF">
<tr>
<td width="100%" valign="top" bgcolor="#FFFFFF">
<p align="left"><font face="Verdana" size="1">
<img border="0"
src="art/billeder/bund.gif" width="3" height="3"></font></td>
</tr>
</table>
</div>
</td>
<td width="3" height="422"></td>
<td width="144" valign="top" height="422">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td background="art/billeder/c1.gif" width="20" height="20"> </td>
<td bgcolor="#FFFFFF">
</td>
<td background="art/billeder/c2.gif" width="20" height="20"> </td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="3" bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF">
<p align="right"> </td>
<td width="3" bgcolor="#FFFFFF"> </td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" valign="top" bgcolor="#FFFFFF">
<font face="Verdana" size="1">
<img border="0"
src="art/billeder/bund.gif" width="3" height="3"></font></td>
</tr>
</table>
</div>
<p> </p>
<p> </td>
</tr>
</table>
</div>
<p align="left"> </p>
<p align="left"> </td>
</tr>
</table>
</div>
<p align="left"> </td>
</tr>
</table>
</div>
</tr>
</table>
</body>
</html>
