SSK="SELECT Id FROM Lag_i_Elitserien WHERE Lag='Södertälje' AND Sasong1='" & Sasong3 & "'"
Set Elitlag=objConnect.Execute(SSK)
If Elitlag.EOF Then
Response.Write("Inga Lag funna")
Else
strSQL1="SELECT Id1, Datum, Tid, Omgang, L1.Lag AS hemma, L2.Lag AS borta FROM (Elitserien AS elit INNER JOIN Lag_i_Elitserien AS L1 ON L1.ID=elit.HemmaLag) INNER JOIN Lag_i_Elitserien AS L2 ON L2.ID=elit.BortaLag WHERE Sasong='" & Sasong3 & "' AND HemmaLag=" & Elitlag("Id") & " OR BortaLag=" & Elitlag("Id") & " ORDER BY Id1"
Set Matcher = Server.Createobject("adodb.RecordSet")
Matcher.Open strSQL1, objConnect, 1, 2
If Matcher.EOF Then
Response.Write("Inga Matcher funna")
Else
Response.Write("<Form name=""Match"" action="""& Request.ServerVariables("SCRIPT_NAME") & "?Sasong3=" & Sasong3 &""" method=""post"">")
Response.Write("<SELECT name=""Matchnr"" OnChange=""this.form.submit();"">")
Response.Write("<OPTION value=0>-- VÄLJ --</OPTION>")
Do until Matcher.EOF
Response.Write("<OPTION value=""" & Matcher("Id1") & """>" & Matcher("Omgang") & " " & Matcher("hemma")&"-"&Matcher("borta") & "</OPTION>")
Matcher.MoveNext
Loop
Response.Write("</SELECT>")
End If
End If
Jag får det här felmeddelandet när det inte finns några poster, med det urvalet jag valt:
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
Det är ju korrekt. Men jag vill ju ha mitt eget meddelande.
Hoppas någon kan hjälpa mig?