Hej
Er der nogen der kan se fejlen i denne her.
Jeg får denne fejl:
Microsoft VBScript compilation error '800a0400'
Expected statement
/cprep/udestaaende.asp, line 37
End if
^
<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("CP_rep_Data.mdb")
Conn.Open strDSN
' SQL forespørgsel
strSQL = "Select * From tabel1 Where Afsendt = '1'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Gennemløb Recordset (rs) med en løkke
Do
' Hvis der er fundet poster på søgningen
Response.Write "<p>Søgeresultat</p>"
Response.Write "<table border=1>"
Response.Write
"<tr><th>CP_rep_nr</th><th>Enhed</th><th>Projekt</th><th>Modtaget
</th><th>Serienr.</th><th>Forventet_lev</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td>" & rs("CP_rep_nr") & "</td>"
Response.Write "<td>" & rs("Enhed") & "</td>"
Response.Write "<td>" & rs("Projekt") & "</td>"
Response.Write "<td>" & rs("Modtaget") & "</td>"
Response.Write "<td>" & rs("Serie_nr") & "</td>"
Response.Write "<td>" & rs("Forventet_lev") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
End if
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials