Foros del Web - Ver Mensaje Individual

Shiryu_Libra · #3 (**permalink**) 19/04/2007, 01:12

bueno... retoque un poquitillo tu codigo.... espero no te moleste

consejos practicos... evita crear campos en tu base de datos que contengan espacios

"email del contacto" X "email"

Cita:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>
<body>
<FORM ACTION="guardardatos.asp" METHOD="post">
<p align="right"><font face="Verdana" size="1">tupeluqueriacanina.com</font></p>
<table align="center" width="500px" border="0" cellspacing="0" cellpadding="0">
<tr><td colspan="2"><h1>Rellena el siguiente formulario</h1></td></tr>
<tr><td colspan="2"><h2>para añadir a tu mascota</h2></td></tr>
<tr><td colspan="2"> </td></tr>
<tr><td colspan="2"><u><font face="Roman" size="5">Datos del Animal</font></u></td></tr>
<tr><td colspan="2"> </td></tr>
<tr><th scope="col"> <label>Especie:
<select name="select" id="especie" >
<option selected="selected">Perro o Gato</option>
<option value="Perro">Perro </option>
<option value="Gato">Gato </option>
</select>
</label></th>
<th scope="col">Email del Contacto: <font size="3">
<input name="Text" type="Text" id="Email" size=28 />
</font></th></tr>
<tr><td colspan="2"><div align="center">
<input type="Submit" name="enviar" value="Enviar" size=8 />
</div></td></tr>
</table>
</FORM>
</BODY>
</HTML>

'guardardatos.asp

Cita:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin título</title>
</head>

<body>
Especie = Request.Form("especie")
Email= Request.Form("email")

Set con = Server.CreateObject("ADODB.Connection")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mdb\animalesperdidos.mdb"))

sql= "INSERT INTO datos(Especie, [Email del Contacto])"
sql = sql & "VALUES('"&Especie&"' , "&Email&"')"

con.Execute(sql)%>

Animales Perdidos<p>Especie: <% = Request.Form("especie") %><BR>
Email del Contacto: <% = Request.Form("Email") %><BR><BR>

Sus datos están almacenados en nuestra base de datos.<BR><BR>
<%
If Err = 0 Then
Response.Write "Inserción correcta"
Else
Response.Write "Error de datos"
End If
con.Close
Set con=Nothing
%>
<SCRIPT LANGUAGE="JavaScript">
</SCRIPT>
<%end sub%>
</p>
<HR>
</BODY>
</HTML>

suerte