Hej
jeg har et problem da mit script ikke virker, det skulle gerne læse om der
står noget i rs("Navn"), hvis der gør det skal den skrive hvad der står og
hvis der ikke gør skal man kan tilmelde sig. jeg har indsat source koden til
de forskellige ting men jeg kan ikke finde fejlen
Fejlen lyder :
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a000d'
Typerne passer ikke sammen: 'rs'
/reserver.asp, linje 14
Source Kode :
<html>
<head>
<title>The Complex</title>
</head>
<body>
<%
' Database Forbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("borde.mdb")
Conn.Open DSN
none=""
if rs("navn") <> none then
'Læs Bruger
strSQL1 = "Select * from borde Where bord = " & Request.Querystring("bord")
& ""
Set rs = Conn.Execute(strSQL1)
Do
Response.Write "<h3>Plads nr. " & Request.Querystring("bord") & " er
reserveret til :</h3>"
Response.Write "<table border='0'>"
Response.Write "<tr>"
Response.Write "<td width='110px'>Navn :</td>"
Response.Write "<td width='300px'>" & rs("Navn") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='110px'>Nickname :</td>"
Response.Write "<td width='300px'>" & rs("Nickname") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='110px'>Adresse :</td>"
Response.Write "<td width='300px'>" & rs("Adresse") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='110px'>Post nr. & By :</td>"
Response.Write "<td width='300px'>" & rs("City") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='110px'>E-mail :</td>"
Response.Write "<td width='300px'>" & rs("Email") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width='110px'>Hjemmeside :</td>"
Response.Write "<td width='300px'>" & rs("Hjemmeside") & "</td>"
Response.Write "</tr>"
Response.Write "</table>"
rs.MoveNext
Loop While Not rs.EOF
Else
' Tabel og Form
Response.Write "<form method='Post' action='reserver2.asp?bord=" &
Request.Querystring("bord") & "'>"
Response.Write "<center><table border='0'>"
Response.Write "<tr>"
Response.Write "<td>Navn :</td>"
Response.Write "<td><input type='text' name='Navn'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>Nickname :</td>"
Response.Write "<td><input type='text' name='Nickname'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>Adresse :</td>"
Response.Write "<td><input type='text' name='Adresse'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>Post nr. & By :</td>"
Response.Write "<td><input type='text' name='City'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>E-Mail :</td>"
Response.Write "<td><input type='text' name='Email'></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>Hjemmeside :</td>"
Response.Write "<td><input type='text' name='Hjemmeside'></td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<input type='submit' Value='Reserver'>"
Response.Write "</form>"
End If
%>
</body>
</html>