[WingedPanther]

Try changing your loop to a Do While

Do While not rsName.EOF
  SERVID=rsName("fld_serviceid")
  SERVNAME=rsName("fld_servicename")
  If Request.Form(SERVID)= "Yes" then
    strSQL="insert into tbl_wss_transservice(fld_ssn,fld_serviceid,fld_ser vicename) "
    strSQL=strSQL & "values('" & SSN & "','" & SERVID & "','" & SERVNAME & "')"
    connection.BeginTrans
    connection.Execute(strSQL)
    connection.CommitTrans
  End If

  rsName.Movenext
Loop