
17/08/2004, 11:30
|
 | | | Fecha de Ingreso: noviembre-2001 Ubicación: Vilanova i la Geltrú
Mensajes: 1.942
Antigüedad: 23 años, 5 meses Puntos: 0 | |
Bueno... pongo todo el codigo completo...:
<%
Response.Cookies("emailbe") = request.form("email")
Response.Cookies("emailbe").Expires = Date + 365
if request.form("password") = request.form("password2") then
else
response.redirect "registro.asp?msg=Las contraseñas no coinciden"
end if
if request.form("codigo") = request.form("codigo2") then
else
response.redirect "registro.asp?msg=El código de validación no coincide"
end if
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("bd"))
set rs = CreateObject("ADODB.Recordset")
sqltext2 = "SELECT * FROM empresas WHERE email = '"&request.form("email")&"'"
rs.Open sqltext2,cnn,3,3
if rs.eof then
else
if rs("email") = request.form("email") then
response.redirect "registro.asp?msg=El usuario ya está en uso"
else
end if
end if
rs.Close
set rst = CreateObject("ADODB.Recordset")
sqltext = "SELECT * FROM candidatos"
rst.Open sqltext,cnn,3,3
'Recogemos los datos y validamos que no haya ningun campo vacio
dim titulo, copete, noticia
email = Request.Form("email")
password = Request.Form("password")
codigo = Request.Form("codigo")
nombre = Request.Form("nombre")
denominacion = Request.Form("denominacion")
cif = Request.Form("cif")
provincia = Request.Form("provincia")
pais = Request.Form("pais")
telefono = Request.Form("telefono")
ntrabajadores = Request.Form("ntrabajadores")
sector = Request.Form("sector")
contratosano = Request.Form("contratosano")
facturacion = Request.Form("facturacion")
logo = Request.Form("logo")
web = Request.Form("web")
if password ="" or email ="" then
error = "registro.asp?msg=No ha completado todos los datos"
Response.redirect error
Response.End
end if
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew
rst("password") = password
rst("email") = email
rst("nombre") = nombre
rst("provincia") = provincia
rst("pais") = pais
rst("cif") = cif <-------> 81
rst("denominacion") = denominacion
rst("telefono") = telefono
rst("ntrabajadores") = ntrabajadores
rst("sector") = sector
rst("contratosano") = contratosano
rst("facturacion") = facturacion
rst("logo") = logo
rst("web") = web
rst.update
'Terminamos e imprimimos un mensaje
Response.redirect "panel.asp"
%> |