Lo unico que veo raro es la linea:
sql3="update visita set numero= numero +'1', fecha='"&Now()&"' where logina = '"&request.form("usuario")&"'"
yo pondria:
sql3="update visita set numero= numero + 1 , fecha=#" & Now() & "# where logina = '" & replace(request.form("usuario"),"'","") & "'"
Prueba a ver si fuera por lo de la comilla simple en el numero o la # en la fecha.
Un saludo
