Foros del Web - Ver Mensaje Individual

daenor · #3 (**permalink**) 04/01/2005, 04:55

como haria teniendo en cuenta que yo tengo un ASP que quiere grabar en la base de datos de la siguiente manera:

<%@ Language=VBScript %>
<%

' el siguiente if es un request que saca los daos del formulario
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

strEMPRESA = Request.Form("empresa")
strDIRELOCAL = Request.Form("direlocal")
strTELLOCAL = Request.Form("tellocal")
strNOMBRE = Request.Form("nombre")
strAPELLIDO = Request.Form("apellido")
strDNI = Request.Form("dni")
strDIRECCION = Request.Form("direccion")
strLOCALIDAD = Request.Form("localidad")
strPROVINCIA = Request.Form("provincia")
strTELEFONO = Request.Form("telefono")
strCELULAR = Request.Form("celular")
strEMAIL = Request.Form("email")
strCP = Request.Form("cp")
strUSUARIO = Request.Form("usuario")
strPASSWORD = Request.Form("password")

' el siguiente str saca la hora del sistema para grabarla en el logueo

strDate = Now()
blnValid = True
strValid = "" & _
"Invalid entry...!!!" & vbCrLf & _
"<ul>" & vbCrLf

' de aca en adelante todos los if son los que verifican si han o no llenado las casillas del formualrio devolviendo un
' mensaje que dice que tal campo esta vacio

if strEMPRESA = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo EMPRESA " & vbCrLf
end if

if strDIRELOCAL = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo DIRECCION DEL LOCAL " & vbCrLf
end if

if strTELLOCAL = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo TELEFONO DEL LOCAL " & vbCrLf

end if

if strNOMBRE = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo NOMBRE " & vbCrLf

end if

if strAPELLIDO = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo APELLIDO " & vbCrLf

end if

if strDNI = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo DNI " & vbCrLf

end if

if strDIRECCION = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo DIRECCION " & vbCrLf

end if

if strLOCALIDAD = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo LOCALIDAD " & vbCrLf

end if

if strTELEFONO = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo TELEFONO " & vbCrLf

end if

if strCELULAR = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo CELULAR " & vbCrLf

end if

if strEMAIL = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo CORREO ELECTRONICO " & vbCrLf

end if

if strCP = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo CODIGO POSTAL " & vbCrLf

end if

if strPROVINCIA = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo PROVINCIA " & vbCrLf

end if

if strUSUARIO = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo USUARIO " & vbCrLf

end if

if strPASSWORD = "" then
blnValid = False
strValid = strValid & "<li>Por favor, ingresar el campo PASSWORD " & vbCrLf

end if

' desde aca empieza la conexion a la base de datos, los campos a llenar y los valores a esos datos

if blnValid = True then
' notar que los valores estan en el mismo orden que estan los nombres de los campos en la base de datos no cambiarlos
' porque de lo contrario se ingresaran mal en la base.
strDSNPath = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database\dex.mdb")
strSQL_Insert = "INSERT INTO userREG ( empresa, direlocal, tellocal, nombre, apellido, dni, direccion, localidad, provincia, telefono, celular, email, cp, usuario, password, Entry_Date)" & _
" VALUES ('" & strEMPRESA & "','" & strDIRELOCAL & "', '" & strTELLOCAL & "', '" & strNOMBRE & "','" & strAPELLIDO & "', '" & strDNI & "','" & strDIRECCION & "', '" & strLOCALIDAD & "', '" & strPROVINCIA & "', '" & _
strTELEFONO & "', '" & strCELULAR & "','" & strEMAIL & "', '" & strCP & "','" & strUSUARIO & "', '" & strPASSWORD & "', '" & strDate & "');"

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open strDSNPath
On error resume next
Conn.Execute strSQL_Insert
Conn.Close
Set Conn = Nothing
' SE CIERRA LA CONEXION

' empieza el IF de los errorres

if err.number <> 0 then

strValid = "" & _
"There Was An Error In The DataBase! " & _
"Error Number: " & err.number & " " & _
"Error Description: " & err.description & " " & _
"" & _
"" & _
"Please Contact Our <a href=mailto:[email protected]>E-mail!</a>" & _
"" & _
"" & _
""
else

strValid = "<h2 align=center>" & _
"Base de datos actualizada!! Nuevo Usuario!! " & _
"Nombre: " & strNOMBRE & " " & _
"Apellido: " & strAPELLIDO & " " & _
"Documento: " & strDNI & " " & _
"</h2> " & _
"<h3 align=center>Your name and password was submited succesfully!</h3> " & _
"<h3 align=center>You are our new member now.</h3> " & _
"" & _
""
end if

else
strValid = strValid & "<table align=""center""border=3>"&_
"<tr> <td><form action=""First_Time.asp"" method=""POST"" name=""form1""> "&_
"<tr><td align=""Left"">Your Full Name:    <input type=""text"" name=""txtFullName""></tr></tr></td> " & _
"<tr><td align=""Left"">User Name:       &nb sp;    <input type=""text"" name=""txtName""></tr></tr></td> " & _
"<tr><td align=""Left"">User Password:    <input type=""password"" name=""txtPassword""maxlength=""10""></tr></td>" & _
"<tr><td> <input type=""Submit"" value=""Re-Try""></tr></td> "&_
"</table><hr width=""400"">"
end if
else

Response.Redirect("login.html")

end if

%>
<HTML>
<HEAD>

<title>Successfully</title>
</HEAD>
<body background=glacier.gif>
<table WIDTH="600" ALIGN="center" BORDER="0" CELLSPACING="3" CELLPADDING="3">
 

<tr>
<td>
<%
Response.Write strValid
%>
</td>
</tr>
</table>
<a href="login.html">Click here to go back!</a>
</BODY>
</HTML>

donde inserto los codigos para saber si hay o no registros en mi base de datos?????