Har gjort en liten grejj som söker efter medlemmar på min community.
Får det inte att funka, tror att det kan vara ngt fel på loopen ;
strSQL= "SELECT Anv_Namn FROM anv_data WHERE Anv_Namn = '" & anv_namn & "';"
Set oRec = oConn.Execute(strSQL)
If Not oRec.EOF Then
Response.Write "&finns=ja"
Response.Write("&resultat")
Do While Not oRec.EOF
alltext="<font face='verdana' size='10pt' color='#ffffff'><a href='asfunction;visa_profil," & oRec("ID") & "'><b>" & oRec("Anv_Namn") & "</b></a><br>"
Response.Write(alltext)
oRec.MoveNext
Loop
Else
Response.Write "&finns=nej"
End If
Kan det se ut såhär?
Idéen är att man säker på tex. "a", då skall allas användarnamn som börjar på a visas, de plockas fram genom loopen som körs om nu medlemmen finns.
strSQL= "SELECT Anv_Namn FROM anv_data WHERE Anv_Namn like '" & anv_namn & "%'"
Set oRec = oConn.Execute(strSQL)
If Not oRec.EOF Then
Response.Write "&finns=ja"
Response.Write("&resultat")
Do until oRec.EOF
alltext="<font face='verdana' size='10pt' color='#ffffff'><a href='asfunction;visa_profil," & oRec("ID") & "'><b>" & oRec("Anv_Namn") & "</b></a><br>"
Response.Write(alltext)
oRec.MoveNext
Loop
Else
Response.Write "&finns=nej"
End If
&finns=ja&resultat
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/hemsida_dev/data/sok_medlem.asp, line 39
strSQL= "SELECT [b]ID,[/b] Anv_Namn FROM anv_data WHERE Anv_Namn like '" & anv_namn & "%'"
Set oRec = oConn.Execute(strSQL)
If Not oRec.EOF Then
Response.Write "&finns=ja"
Response.Write("&resultat")
Do until oRec.EOF
alltext="<font face='verdana' size='10pt' color='#ffffff'><a href='asfunction;visa_profil," & oRec("ID") & "'><b>" & oRec("Anv_Namn") & "</b></a><br>"
Response.Write(alltext)
oRec.MoveNext
Loop
Else
Response.Write "&finns=nej"
End If