Loginscript der gør knuder

Hej alle
Jeg fandt et lille login-script jeg gerne vil have til mine sider, men jeg får en fejl i linie 25;

Microsoft VBScript compilation error '800a03ea'
Syntax error
Register.asp, line 25

"('"& Ucase(Request("firstname")) & "', '"& Request("lastname") & "', '"&

Hvad gør jeg galt??

<%

Dim sSQL,conn,rs
Set conn = Server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")

'DSN less connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & Server.MapPath("../../fpdb/logins.mdb")
conn.open


strsql = "Select firstname,lastname from login"
set rs = conn.Execute (strsql)

if (rs.BOF)and (rs.EOF) then

sSQL = "Insert into admin (Firstname,lastname,username,password) Values" & _
"('"& Ucase(Request("firstname")) & "', '"& Request("lastname") & "', '"&
Request("userid") & "', '" & Request("password") & "')"
conn.Execute sSQL,adCmdText

else

SQL = "Delete * from login where username= '" & Request.Form("userid") & "'"
conn.execute(SQL)
end if

sSQL = "Insert into login (Firstname,lastname,username,password) Values" & _
"('"& Ucase(Request("firstname")) & "', '"& Request("lastname") & "', '"&
Request("userid") & "', '" & Request("password") & "')"
conn.Execute sSQL,adCmdText

'close the recordset
rs.close
set rs = nothing

'close the connection
conn.close
set conn = nothing

%>