19/04/2004, 04:48
|
 | | | Fecha de Ingreso: febrero-2003 Ubicación: Mataro
Mensajes: 365
Antigüedad: 22 años, 2 meses Puntos: 0 | |
 Mostrar datos al enviar
hola amigos del foro
tengo una pregunta. Llevo con esto mucho tiempo y no lo consigo solucionar.
Yo tengo un formulario que se envia al codigo de abajo y quiero q cuando se envie me muestre los datos del formulario. Alguien me puede ayudar a completar el codigo? Código PHP: <%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxxxxs.mdb")
sqltext = "SELECT * FROM Inscripcio"
rst.Open sqltext,cnn,3,3
'Recogemos los datos y validamos que no haya ningun campo vacio
dim nom, cognoms, any, sexe, direc, poblacio, cp, telefon, nivell, sitlaboral, curs, data
nom = Request.Form("nom")
cognoms = Request.Form("cognoms")
any = Request.Form("any")
sexe = Request.Form("sexe")
direc = Request.Form("direc")
poblacio = Request.Form("poblacio")
cp = Request.Form("cp")
telefon = Request.Form("telefon")
email = Request.Form("email")
nivell = Request.Form("nivell")
sitlaboral = Request.Form("sitlaboral")
curs = Request.Form("curs")
data = Request.Form("data")
if nom = "" or cognoms ="" or any ="" or sexe="" or direc="" or poblacio="" or cp="" or telefon="" or nivell="" or sitlaboral="" then
error = "<br><br><br><br><center><font size=2 face=arial>Cal completar les dades obligatòries.<br><a href=""javascript:history.back(1)"">Tornar</a>"
Response.Write error
Response.End
end if
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew
rst("nom") = nom
rst("cognoms") = cognoms
rst("any") = any
rst("sexe") = sexe
rst("direc") = direc
rst("poblacio") = poblacio
rst("cp") = cp
rst("telefon") = telefon
rst("email") = email
rst("nivell") = nivell
rst("sitlaboral") = sitlaboral
rst("curs") = curs
rst("data") = data
rst.update
'Terminamos e imprimimos un mensaje
Response.Write "<center><img src=http://www.xxxx/txxx.gif><br>"
Response.Write "<br><br><br><br><font size=2 face=arial>T'acabes d'inscriure correctament als tallers <br><b>Posa't al Dia."
Response.Write " Formar-te en noves tecnologies no et costarà res.</b><br>Per qualsevol dubte truca al xx xxx 49 60 "
Response.Write "o envia un mail a <a href=mailto:[email protected]>[email protected]</a><br>Gràcies."
Response.Write "<a href=http://www.xxxx.com/cursos/><br><br>Tornar plana inicial</a>"
%>
<html>
<head>
<title>Página nueva </title>
</head>
<body>
</body>
</html>
|