webForumDet fria alternativet

litet problem

1 svar · 245 visningar · startad av DavidB

DavidBMedlem sedan jan. 20001 372 inlägg
#1

Det är så att jag använder en databas sär jag har lagrat typsnitt som besökarna själva kan välja vilket de vill ha. Databasen har jag för en lättare administration.

Jag använder mig av följande kod där besökaren väljer typsnitt. Allt är en select-grej.

Set Connection = CreateObject("ADODB.Connection")
Connection.Open "databas"
Set RS = Connection.Execute("SELECT * From typsnitt")
If Request.Form("update") = "preview" Then

Do until RS.EOF
Response.Write("<option value=""" & RS("typsnitt") & """")
If Request.Form("typsnitt") = typsnitt Then
Response.Write(" selected")
End If
Response.Write(">" & RS("name") & "</option>")
RS.Movenext
Loop

Else

Do until RS.EOF
Response.Write("<option value=""" & RS("typsnitt") & """")
If RS("typsnitt") = typsnitt Then
Response.Write(" selected")
End If
Response.Write(">" & RS("name") & "</option>")
RS.Movenext
Loop

End If
RS.Close
Connection.Close

men problemet är i denna koden

Do until RS.EOF
Response.Write("<option value=""" & RS("typsnitt") & """")
If Request.Form("typsnitt") = typsnitt Then
Response.Write(" selected")
End If
Response.Write(">" & RS("name") & "</option>")
RS.Movenext
Loop

det jag vill är att det typsnitt som besökaren har valt i selectgrejen ska vara valt efter att denne har tryckt på submitknappen. som det är nu så blir inget av alternativen selected så det är det översta som är valt. nån som har en lösning på mitt problem?

------------------
// David - Probably the best guy in the world

@ndersMedlem sedan juni 200032 969 inlägg
#2
If Request.Form("typsnitt") = [b]RS("typsnitt")[/b] Then

:q

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

132 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)