Kenneth Fuglsang <kenneth-fuglsang@pc.dk> skrev i
news:9ec1ac$c34$1@news.inet.tele.dk
> Hej
>
> Jeg har lidt problemer med dette script da det altid redirect'er til
> vistilmeldte3.asp uanset om der er tilmeldte eller ej.
>
<%
' Opret Database forbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("/db/database.mdb")
Conn.Open DSN
'Læs Bruger
strSQL1 = "Select * from bordreservation Order By ID"
Set rs = Conn.Execute(strSQL1)
Response.Write "<h2 ALIGN='center'>Her kan du se hvem der er"
Response.Write " tilmeldt til vores næste party</h2>" & vbcrlf
Response.Write "<P> </P>" & vbcrlf
Response.Write "<DIV ALIGN='center'>" & vbcrlf
Response.Write "<table width='80%' border='0' cellpadding='0'"
Response.Write " cellspacing='0'>" & vbcrlf
If rs.EOF Then
Response.Write "Der er sket en fejl"
End If
Do while not rs.eof
if not rs("navn") = "" then
Response.Write "<tr>" & vbCrLf
Response.Write "<td>" & rs("id") & "</td>" & vbCrLf
Response.Write "<td>" & rs("navn") & "</td>" & vbCrLf
Response.Write "<td>" & rs("Nickname") & "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
else
Response.Redirect("vistilmeldte3.asp")
end if
rs.MoveNext
Loop
Response.Write "</table>" & vbCrLf
Response.Write "</DIV>" & vbcrlf
' Luk RecordSet
rs.Close
Set rs = Nothing
' Luk Database
Conn.Close
set Conn = Nothing
%>
Problemet mitt er at jeg ikke forstår vitsen med å sende folk videre hvis et
felt er tomt ...
Ellers kan jeg jo fortelle at det du gjør er noe jeg ikke klarer ... Jeg får
beskjed om at siden jeg har begynt å sende informasjon til client kan jeg
ikke benytte meg av Redirect ...
--
Vennlig hilsen Erlend
erlendkb@c2i.net
http://www.kleggen.com/