ADO and ASP help needed

[alvintafoya]

I am fairly new to Web programming and I need some help.
The following code snippet came from a page I wrote. The records are written to the database (SQL Server 2000) but the page never comes up after this point. I have narrowed the problem down to this loop, but I have no idea where to go from here.

SQLStmt="insert into tbl_wss_transpers (fld_ssn,fld_name,fld_adminuic,fld_hirestatus,fld_ ntlogon,fld_subscriptiondate,"
SQLStmt=SQLStmt & "fld_updatedate,fld_source,fld_approved,fld_locked ,fld_update,fld_password) "
SQLStmt=SQLStmt & "values('" & SSN & "','" & NAME & "','" & UIC & "','" & HIRE & "','" & EMAIL & "','" & DTESUB & "',"
SQLStmt=SQLStmt & "'" & DTEUPDT & "','" & SOURCE & "',0,0,0,'" & PASS & "')"
connection.BeginTrans
connection.Execute(SQLStmt)
connection.CommitTrans


set rsName=Server.CreateObject("adodb.recordset")
SQLStmt="select * from tbl_wss_services where fld_active=1 and fld_dpiadmin=0 order by fld_serviceid"
rsName.open SQLStmt,conn
rsName.MoveFirst
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
Wend
rsName.close

Like I said, the records actually make it to the database. The HTML portion of the page displays the records just written, but page execution stops after the above loop. Also the page takes an inordinate amount of time to load.
Any help would be greatly appreciated.

Thanks

[lartzi]

Why you don't use the "Stop" keyword and debug it and see exactly what is the problem?

[chili5]

Welcome to Code Call.

If your asking a question, you should use tags to display your code, so it is easier to see.

Well I know nothing about ASP so I can't really help.

[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