Ver Mensaje Individual
  #5 (permalink)  
Antiguo 19/04/2007, 17:29
Avatar de Shiryu_Libra
Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 18 años, 2 meses
Puntos: 88
Re: por que no funciona ...

hola de nuevo...

recomendaciones para tus paginas.....
  1. cuando insertes campos de formulario, en ves de NAME, utiliza ID
  2. los nombres no deben contener espacios.... "Nombre de variable" a "Nomvariable"
y de vuelta a tu codigo

esto pegalo en tu formulario
Código:
<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">&nbsp;</td></tr>
  <tr><td colspan="2">
      <div align="center"><h2><u><font face="Roman" size="5">Datos del Animal</font></u></h2></div></td></tr>
  <tr><td colspan="2">&nbsp;</td></tr>
  <tr><th scope="col">
      <label>Especie:<br /><select id="especie" >
          <option selected="selected">------</option>
          <option value="Perro">Perro </option>
          <option value="Gato">Gato </option>
        </select></label></th>
    <th scope="col">
      <label>Raza<br />
      <input type="text" id="raza" />
      </label></th>
  </tr>
  <tr><th scope="col">
      <label>sexo:<br />
        <select id="sexo" >
            <option selected="selected">------</option>
            <option value="Perro">Macho</option>
            <option value="Gato">Hembra</option>
        </select></label></th>
    <th scope="col">
      <label>Nombre<br />
          <input type="text" id="nombre" />
      </label></th>
  </tr>
  <tr><td colspan="2">
      <br /><div align="center"><h3><u><font face="Roman" size="5">Datos de la Perdida</font></u></h3></div></td></tr>
  <tr><td colspan="2">&nbsp;</td></tr>
  <tr><td colspan="2">
      <div align="center"><label>Fecha de Perdida: <input type="text" id="fperdida" /></label></div></td></tr>
  <tr><td colspan="2"><div align="center"></div></td></tr>
  <tr><td><div align="center"><label>Pais<br /><input type="text" id="pais" /></label></div></td><td><div align="center"><label>Provincia<br /><input type="text" id="provincia" /></label></div></td></tr>
  <tr><td><div align="center"></div></td><td><div align="center"></div></td></tr>
  <tr>
      <td><div align="center"><label>Municipio<br /><input type="text" id="municipio" /></label></div></td>
      <td><div align="center"><label>Zona<br /><input type="text" id="zona" /></label></div></td></tr>
  <tr><td colspan="2"><div align="center">&nbsp;</div></td></tr>
  <tr><td colspan="2">
  <div align="center"><label>Email de Contacto: <input type="text" id="econtacto" /></label></div>
  </td></tr>
  <tr><td colspan="2"><div align="center">&nbsp;</div></td></tr>
  <tr><td colspan="2"><div align="center"><input type="Submit" name="enviar" value="Enviar" size=8 /> </div></td></tr>
</table>
</FORM>
y lo siguiente en tu pagina donde guardas los datos

'guardardatos.asp
Código:
<%
'ESTAS VARIABLES RECOJERAN TUS DATOS DEL FORMULARIO
var1= Request.Form("especie")
var2= Request.Form("raza")
var3= Request.Form("sexo")
var4= Request.Form("nombre")
var5= Request.Form("fperdida")
var6= Request.Form("pais")
var7= Request.Form("provincia")
var8= Request.Form("municipio")
var9= Request.Form("zona")
var10= Request.Form("econtacto")

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

sql= "INSERT INTO datos(aki escribe todas tus variables de la base de datos)"
sql = sql & "VALUES('"&var1&"', '"&var2&"', '"&var3&"', '"&var4&"', '"&var5&"', '"&var6&"', '"&var7&"', '"&var8&"', '"&var9&"', '"&var10&"',)"

con.Execute(sql)%>

'cuando mandes imprimir los datos, manda escribir las variables que se crearon arriba
Animales Perdidos<p>Especie: <%=var1%><BR>
Email del Contacto: <%=var10%><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
%>
suerte
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra