Tabel
HejHar lige fået udarbejdet et asp script til at hente mine alle data fra min access database. Problemet er bare at det er ikke så overskuligt(TOTALT rodet) så hvordan sætter jeg det op i en tabel.
Tabel skal indeholde 5 koloner og så skal den indhold x antal rækker. X svare til det antal poster som er i min database og min database får hele tiden nye målinger ind.
Så kort og godt et script som selv "laver" en tabel og indsætter mine tal fra DB.
Her er mit asp script som henter dataene fra DB:
<%
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 * from base order by Id DESC"
set base = conn.Execute(strSQL)
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 base.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>
/Bri@n
