Hente værdi fra database til radio buttoms

JEg har fundet grem til dette, men der kommer fejl:
<input type="radio" name="R1" value="n/a"<% if objRs("R1") = "n/a" then %> checked<% end if %>>

Jeg får denne fejl:
error '80020009'

Jeg har lagt dette ind:
<input type="radio" name="R1" value="n/a"<% if objRs("SP1") = "n/a" then %> checked<% end if %>>
<input type="radio" name="R1" value="1"<% if objRs("SP1") = "1" then %> checked<% end if %>>
<input type="radio" name="R1" value="2"<% if objRs("SP1") = "2" then %> checked<% end if %>>
<input type="radio" name="R1" value="3"<% if objRs("SP1") = "3" then %> checked<% end if %>>
<input type="radio" name="R1" value="4"<% if objRs("SP1") = "4" then %> checked<% end if %>>
<input type="radio" name="R1" value="5"<% if objRs("SP1") = "5" then %> checked<% end if %>>

Det plejer gerne at være fordi dit objRs recordset er tomt.
Har du et tjek for objRs.eof??

Hej Fennec - beklager mit sene svar, men det hjalp med lidt .eof.

Måske du kunne sige mig om det muligt at skrive det lidt smartere end dette:
strSQL = "update respond1 set sp1='" & Request.Form("r1") & "', sp2='" & Request.Form("r2") & "', sp3='" & Request.Form("r3") & "', sp4='" & Request.Form("r4") & "', sp5='" & Request.Form("r5") & "' where id = '" & Request.Form("id") &"'"

Det er pga. jeg har knapt 50 spørgsmål, så det bliver en hammer lang sætning. Kan man gøre noget så det kommer til at ligge på flere linier?

Poster du også et svar?

/Kim

Hej igen - jeg stiller spørgsmålet i en ny tråd. Poster du et svar?

.o) <-- One Eyed Jack

Tak for hjælpen :)