Hejsa..
kan i fortælle mig hvad der går galt i denne kode
<%
Set Conn = Server.CreateObject("ADODB.Connection")
strMode = Request.QueryString("mode")
DSNStatement = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DSNStatement = DSNStatement &
Server.MapPath("/cserror/cgi-bin/database.mdb")
Conn.Open DSNStatement
' SQL forespørgsel
strSQL = "Select * from matches"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
Response.Write "<tr><td bgcolor='#333333' align='center'>" &
rs("Against") & "</td><td bgcolor='#333333' align='center'>" &
rs("Firstmap") & "</td><td bgcolor='#333333' align='center'>" &
rs("Secondmap")
If rs("Us") > rs("Them") Then
Response Write "</td><td bgcolor='#333333' align='center'><font
color='green'>" & rs("Us") & "</font></td></tr>"
Response Write "</td><td bgcolor='#333333' align='center'><font
color='red'>" & rs("Them") & "</font></td></tr>"
Else
Response Write ""
End If
If rs("Us") = rs("Them") Then
Response Write "</td><td bgcolor='#333333' align='center'><font
color='yellow'>" & rs("Us") & "</font></td></tr>"
Response Write "</td><td bgcolor='#333333' align='center'><font
color='yellow'>" & rs("Them") & "</font></td></tr>"
Else
Response Write ""
End If
If rs("Us") > rs("Them") Then
Response Write "</td><td bgcolor='#333333' align='center'><font
color='red'>" & rs("Us") & "</font></td></tr>"
Response Write "</td><td bgcolor='#333333' align='center'><font
color='green'>" & rs("Them") & "</font></td></tr>"
Else
Response Write ""
End If
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Det som sker, er at den ikke kan vise siden ,den kommer ikke med
fejlmeddelser..
--
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