ASP script virker ikke
HeySidder og kan ikke se hvad der er galt med dette script. Det er linje 21 der er problemet.
<%
dim conn
function OpenConn( DBName )
Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"
end function
OpenConn("db.mdb")
%>
<html>
<head>
<title>Vejrdata > Vis alle data</title>
</head>
<body bgcolor="white">
<font color="blue">
<face='verdena'>
<body>
<font size='3' face='verdana' color='blue'><b><H2><center>Her er en oversigt over de målte vejrdata</center></H2></b>
<%
strSQL = "select top 10 * from base order by Dato"
set base = conn.Execute(SQL) <------- fejl :-(
if base.eof then
Response.Write "Denne service er ikke kommet op at køre endnu - sorry. Kommer op hurtigt muligt :-)"
Else
Response.Write "<br><br>"
do while not databse.eof
Response.Write "<b>Måling fortaget D. :</b> " & base("Dato") & "<br>"
Response.Write "<b>Måling fortaget fra :</b> " & base("IP") & "<br>"
Response.Write "<b>Temperatur målt til :</b> " & base("temp") & "<br>"
Response.Write "<b>Luftfugtighed målt til :</b> " & base("fugtighed") & "<br>"
Response.Write "<b>Målings ID :</b> " & base("Id") & "<br>"
Response.Write "<br><hr>"
base.movenext
loop
Response.Write "</table>"
End If
%>
</font>
</body>
</html>
