Mira, estuve probando pero tengo fallos. He ido probando linea a linea con un response para ver donde tenia el error y aun asi no lo puedo resolver.
Amplio un poco más la idea: vengo de una pagina previa que chequeó el usuario y el password y, una vez hecho, le dió un Continuar para entrar a esta pagina (lo tuve que hacer asi pues el código que estaba empleando para hacer el update me tiraba erores. En esta pagina creo una variable Session("Usuario").
En la siguiente pagina la recojo: user=Session("Usuario")
Y sigue lo siguiente:
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\webspace\resadmin\misitio\misitio.com\db \datos.mdb;"
SQL="SELECT * FROM usuarios WHERE " & _
"Usuario='"&user&"'; and activo='SI'"
f rs.eof then 'AQUI DA UN ERROR
'no esta activo
Response.write ("<B><center>CUENTA INACTIVA</B></a>")
else
rs.Open SQL, oConn, 1, 2
'Añado un nuevo registro
rs.Fields("activo")="SI"
rs.Update
session("usu")=rs.Fields("usuario")
rs.Close
Set RS = Nothing
Set oConn = Nothing
End If
'Response.Write("<B>Gracias por Suscribirse "& nombre ) &"</B>"
' Response.Write("<BR>")
' Response.Write("<BR>")
' Response.Write("<B>Le damos la bienvenida "& user ) &"</B>"
' Response.write ("<B><center>Su cuenta ya ha sido dada de alta</B></a>")
' Response.write ("<a href=../index.html><B><center>Click aqui para ingresar</B></a>")
%>
Estoy empantanado en esta parte y de verdad que ya tengo todo confuso. Se que no deberia ser complicado pero no se bien como terminarlo. Lo que nececsito es que si la cuenta ya esta con el SI, de un Response.wrte CUANTA YA ACTIVA y en caso conbtrario proceda a activarla y otro Response.write que confirma el alta (como esta al final).
Bueno, si tenes alguna sugerencia para darme, te lo agradeceré mucho.
Edysierra