Hola a todos despues de tantos dias, y ya arto de probar os dejo todo el codigo haber is alguien me puede decir por que no cierra la database....
<SCRIPT LANGUAGE="VBSCRIPT" runat="server">
logins= Request.Form("login")
password= Request.Form("password")
password2= Request.Form("password2")
nombre= Request.Form("nombre")
nombre2= Request.Form("nombre2")
nacionalidad= Request.Form("nacionalidad")
trabajo= Request.Form("trabajo")
email=Request.Form("email")
texto=Request.Form("textarea")
Dim conn
Dim rs
Dim SQL
Dim str
Dim donde
Dim cmd
Dim strr
Set conn = Server.CreateObject("ADODB.Connection")
strr="DSN=tablas.dsn"
donde =0
conn.Open strr
Function consultas(conn)
Dim SQLS
Dim str
SQLS="SELECT Clientes.login FROM Clientes"
set rs= Server.CreateObject("ADODB.Recordset")
rs.Activeconnection=conn
rs.Open SQLS
while Not rs.EOF
if (rs("login") = logins) then
donde=true
str=str & "<p>El usuario ya existe por favor:</p>"
str=str & "<p>vuelva e intente con otro usuario</p>"
str=str & "<p><a href="&"/contacto.html"& ">www.idlight3d.com</a></p>"
end if
'str=str & "no hay nada por aqui" & "<BR>"
rs.MoveNext
Wend
consultas=str
end function
if donde = true then
rs.close
conn.close
set rs=nothing
set conn=nothing
response.Write consultas(Conn)
Else
SQL="Insert Into Clientes(login,password,nombre,nombre2,nacionalida d,trabajo,email,texto) values ('" & logins & "','" & password & "','" & nombre & "','" & nombre2 & "','" & nacionalidad & "','" & trabajo & "','" & email & "','" & texto &"')"
set cmd=CreateObject("ADODB.Command")
cmd.CommandText=SQL
cmd.Activeconnection=conn
cmd.execute
rs.close
conn.close
set rs=nothing
set conn=nothing
response.Redirect("/User_zone.html")
End if
</script>
