møg fejl

ADODB.Recordset.1 (0x80020009)
Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.

du kan ikke sprøge på rs("efternavn") hvor du forsøger at danne rs3 - sørg for at pakke den ind i en bof/eof og hvis du allerede har loopet recordsettet rs igennem skal du bruge movefirst hvis du vil igennem det igen.

hvordan gør jeg det ?

rs.movefirst

men jeg ved ikke hvad tanken er med dit script så det er lidt svært at give en løsning.

ok.. først vælger jeg navnen på alle vikarer der har vagt=id (dato fra siden før)

så vil jeg gerne vise alle de navne der ikke er på vagt den dag, dvs jeg skal bruge de navne jeg trækker ud først til at lave en <> jeg sammenligner så navnen fra tabellen hvor alle navnen er oprettet.. håber du forstår og kan hjælpe


DataConn.Open conStr
strSQL = "Select  * From bestilling where tider = '" & Request.Querystring("id") & "'order by tider"
Set rs = DataConn.Execute(strSQL)

Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
set rs = DataConn.execute(strSQL)
if rs.bof or rs.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rs.EOF
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs("efternavn")

Response.write "</td></tr>"
rs.MoveNext
Loop
end if
Response.Write "</table>"
%>
    <%
    strSQL = "Select  * From tilmelding where fornavn <> '"& rs("efternavn") &"'"
Set rs3 = DataConn.Execute(strSQL)


if rs3.bof or rs3.eof then
  response.write "<b><font color='#ff0000'>Der er ingen ledige vikare</b><br><br>"
else
  Do While Not rs3.EOF
 

Response.write "<BR><BR>"
Response.write rs3("fornavn")




rs3.MoveNext
Loop
end if

%>

denne her virker ikke så godt for mig..

DataConn.Open conStr
strSQL = "Select  * From bestilling where tider = '" & Request.Querystring("id") & "'order by tider"
Set rs = DataConn.Execute(strSQL)

Response.write "<table  cellpadding='3' cellspacing='1'  width='20%'>"
Response.write "<tr><td bgcolor='#EFEFEF'><B>vikar</B></td></tr> <tr>"
set rs = DataConn.execute(strSQL)
if rs.bof or rs.eof then
response.write "<b><font color='#ff0000'>Der er ingen vagter..</b><br><br>"
else
Do While Not rs.EOF
strSQL = "Select  Distinct fornavn From tilmelding where fornavn <> '"& rs("efternavn") &"'"
Set rs3 = DataConn.Execute(strSQL)
Response.write "</td><td bgcolor='#EFEFEF'>"
Response.write rs("efternavn")

Response.write "</td></tr>"
Response.write rs3("fornavn")
rs.movefirst
Loop
end if
Response.Write "</table>"
%>

den sidste ser mest korrekt ud - dog kan du ikke udskrive rs3 hvis det recordset er tomt så også dér skal du tjekke for eof/bof

kommet videre?