ottimizzazione del codice asp

[max1975_na]

Ciao a tutti
vi chiedo gentilmente se potete darmi una mano ad ottimizzare questo codice asp che ho creato (sicuramente molto artigianale) e capire se posso ottimizzarlo e maggiormente se commetto errori tanto grossolani!

Premetto che la pagina funziona correttamente (non so come) :rollo:

es: non posso decommentare la chiusura dei rs, mi da un errore tipo (... se l'oggetto e chiuso) !?
insomma, ve ne accorgerete sicuramente!

Grazie anticipatamente per la pazienza

<% 
set conn=server.createobject("ADODB.connection")
%>
<%
sConString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source= "+ server.MapPath("/mdb-database/mio.mdb")
conn.Open(sConString)
%>

<%
    paginaOriginale=request("paginaOriginale")
    paginaOriginale="completato.asp?errore1="&Server.URLEncode("tutto ok")&"&paginaOriginale="&paginaOriginale&"&date13="&wdataentri&"&date14="&wdataexit&"&persone="&wpersone&"&stanze="&wstanze&"&testo="&wtesto

    pSQL="select * from UTENTI_DEALER where login='"&wlogin&"' and passw='"&wpassword&"'"
    set prs=conn.execute(pSQL)
    if not prs.EOF then 'Esiste gia un utente con lo stesso login e password
    Session.Abandon
    paginaDiDestinazione = "riepilogo.asp?errore1="&Server.URLEncode("User e Password già esistenti")&"&nominativo="&wnominativo&"&email="&wemail&"&telefono="&wtelefono&"&date13="&wdataentri&"&date14="&wdataexit&"&persone="&wpersone&"&stanze="&wstanze&"&testo="&wtesto

    else ' User e password non sono gia presenti    
    
    SQL= "INSERT INTO UTENTI_DEALER (nominativo,telefono,email,data,login,passw,privacy) values ('" & wnominativo & "','" & wtelefono & "','" & wemail & "','"& cdate(now)&"','" & wlogin & "','" & wpassword & "','" & wprivacy & "')"

    on error resume next
    Set rs = conn.Execute(SQL)

    if err <> 0 then
    response.write "[b]CI SONO STATI DEGLI ERRORI NELLA COMPILAZIONE DEL MODULO DATI 
 RITORNARE AL MODULO PRECEDENTE E  CONTROLLARE I DATI IMMESSI.

[/b]"
    response.write "<input type=button value='Ritorna al modulo immissione dati' onclick='history.back()'>"
    response.write "Errore: " & err.description    & "
"
    response.write "sql: " & sql & "
"
    else
'    response.write "registrazione ok"
    end if
end if
    
    SQL2="select * from UTENTI_DEALER where login='"&wlogin&"' and passw='"&wpassword&"'"
    set rs2=conn.execute(SQL2)
    
    if rs2.Eof then
    response.write  "
<center><font face='tahoma' size='2' color='#8ACE07'>[b]La Sessione è scaduta, effettua novamente il login[/b]
"& _
       "
<input type='button' value='Chiudi' onclick='javascript:window.close()'></font></center>"
        response.end
    else
'    response.write "tutto ok"    
    Session("Autenticato")="OK"
    session("login")=wlogin
    session("password")= wpassword
    session("cod_utente") = rs2("id_utenti")
    session("nominativo") = rs2("nominativo")
'    response.write session("login")
'    response.write session("password")
'    response.write session("cod_utente")
'    response.end
end if

'Facciamo pulizia
'rs.close
'set rs = nothing
'conn.close
'set conn = nothing

'Rimandiamo l'utente alla pagina appropriata
Response.Redirect paginaDiDestinazione


    SQL3= "INSERT INTO MAILING (email,nominativo,cognome) values ('" & wemail & "','" & wnominativo & "','" & wcognome & "')"
    set rs3=conn.execute(SQL3)
'    response.write "sql: " & sql3    & "
"
'    response.write "

<center><span class='h1'>[b]Email[/b] inserita con successo, Grazie !</span></center>"
'    response.end

'Facciamo pulizia
'rs3.close
'set rs3 = nothing
'conn.close
'set conn = nothing
%> 

a presto!