pues te recomiendo que no utlilices los apellidos para iniciar una sesion de socio, los apellidos se repiten con frecuencia y te podrian dar respuestas no deseadas, usa un nombre de usuario y un pass normal, y para validar el ingreso utiliza rutinas de javascript para validar datos de texto y numericos asi:
dim sql,con,rs
set con = server.createObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("/sis/base_de_datos/vivienda.mdb")
set rs = server.CreateObject("ADODB.Recordset")
if request.form("rol")="cliente" then
sql = "Select * From cliente Where (nomusuariocli = '" & request.form("txtnombre") & "')"
rs.open sql,con,1,2
if rs.eof and rs.bof then
response.write("<center><b>Ese usuario no existe</b></center>")%>
<body bgcolor="#006699" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<div align="center"><strong><a href="javascript
:history.back(-1);">Volver</a></strong>
<%
else
rs.close
sql = "Select passcli from cliente where (nomusuariocli = '" & request.form("txtnombre") & "')"
usuario = request.form("txtnombre")
rs.open sql,con,1,2
set pass=rs("passcli")
if request.form("txtpass") = pass then
rs.close
set rs = nothing%><body bgcolor="#006699" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
</div>
<% session("usuariocliente") = request.form("txtnombre")
response.redirect("clienteactivo.asp") %>
<div align="center">
<%else
response.write("<center><b>Datos erroneos</b></center>")%>
<strong><a href="javascript
:history.back(-1);">Volver</a></strong>
<%
end if
end if
else
sql = "Select * From constructor Where (nomusuariocon = '" & request.form("txtnombre") & "')"
rs.open sql,con,1,2
if rs.eof and rs.bof then
response.write("<center><b>Este usuario no existe</b></center>")%>
<strong><a href="javascript
:history.back(-1);">Volver</a></strong>
<%
else
rs.close
sql = "Select passcon from constructor where (nomusuariocon = '" & request.form("txtnombre") & "')"
usuario = request.form("txtnombre")
rs.open sql,con,1,2
set pass=rs("passcon")
if request.form("txtpass") = pass then
rs.close
set rs = nothing%><body bgcolor="#006699" text="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
</div>
<% session("usuarioconstructor")=request.form("txtnom bre")
response.redirect("constructoractivo.asp")%>
<div align="center">
<%else
response.write("<center><b>Datos erroneos</b></center>")%>
<strong><a href="javascript
:history.back(-1);">Volver</a></strong>
<%
end if
end if
end if
con.close
set con =nothing
%>
este codigo valida datos de un formulario en la pagina default.asp y los valida en la base de datos creando la conecion ADODB con un uuser name y una contraseña, puedes arreglarlo a tu gusto ... espero te sirva