error al insertar datos???

mary* · #1 (**permalink**) 23/04/2007, 12:42

Hola a todos!!!

Espero me puedan ayudar y de antemano les agradezco su ayuda...

Tengo el siguiente código:

Código:

<%
	'ESTOS REQUEST.FORM SON LOS NOMBRES DE LOS CAMPOS DE FORM DE ESTA PAGINA
	if (Request.querystring("cia")) and (Request.querystring("vendedor")) and (Request.querystring("descrip")) and isdate(Request.Form("fecha_v")) and (Request.querystring("contacto")) and (Request.querystring("tel")) and (Request.querystring("comentario")) then 
	Response.Redirect "cap3.asp"
	end if

	vcia= (Request.Form("cia"))
	vvend= (Request.Form("vendedor"))
	vdesc= (Request.Form("descrip"))
	vfechv= (Request.Form("fecha_v"))
	vcont= (Request.Form("contacto"))
	vtel= (Request.Form("tel"))
	vcom= (Request.Form("comentario"))	
	
	'Conección con la BD
	sConnStr = "Driver={SQL Server};Server=MG;Database=Ventas;UID=sa;Password=sa;"
	Set objConn = Server.CreateObject("ADODB.Connection") 
	objConn.Open sConnStr
	
 '*** INSERTAR DATOS ***	
	'Ligamos la tabla temporal a la vista de la BD
	strSQL_N = "INSERT INTO CLIENTES_POR_CONT (CIA, VENDEDOR, DESCRIP, FECHA_VIST, CONTACTO, TEL, COMENTARIO) VALUES ('" & vcia & "', '" & vvend & "' , '" & vdesc & "' , '" & vfechv & "' , '" & vcont & "' , '" & vtel & "' , '" & vcom & "')"
	Set RS = objConn.execute(strSQL_N)
%>

<html>
<head>
<title>Captuta de Cientes por Contactar</title>
<style type="text/css">
<!--
.Estilo24 {font-family: "Times New Roman", Times, serif; font-weight: bold; }
.Estilo4 {font-family: "Times New Roman", Times, serif}
body {
	background-color: #F4F4F4;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<p align="left"><font face="Verdana"><strong>Clientes por Contactar</strong></font></p>
<form method="POST" action="Cons3.asp">
  <table width="100%" border="3" align="center" cellpadding="2" cellspacing="2" bordercolor="#008000" bgcolor="#CCFFCC">
    <tr>
      <td width="650" bordercolor="#FFFFFF"><div align="left"><strong>Fecha </strong>: <span class="Estilo24"><%= Date() %></span></div></td>
      <td width="650" bordercolor="#FFFFFF"><div align="right"><strong>Hora :</strong> <span class="Estilo4"><%= Time() %></span></div></td>
    </tr>
  </table>
  <table width="100%" border="2" bordercolor="#008000" bgcolor="#CCFFCC">
    <tr>
      <td><table width="100%" border="0" bgcolor="#CCFFCC">
          <tr bgcolor="#008000">
            <td height="35" colspan="2"><div align="center"><font color="#FFFFFF">Capturar Datos</font></div></td>
          </tr>
          <tr>
            <td>COMPA&Ntilde;IA : </td>
            <td><p align="left">
                <input type="text" name="cia" size="100">
            </td>
          </tr>
          <tr>
            <td>VENDEDOR : </td>
            <td><p align="left">
                <input type="text" name="vendedor" size="100">
            </td>
          </tr>
          <tr>
            <td>DESCRIPCION:</td>
            <td><input type="text" name="descrip" size="100"></td>
          </tr>
          <tr>
            <td>FECHA VISITA :</td>
            <td><p align="left">
                <input type="text" name="fecha_v" size="100">
            </td>
          </tr>
          <tr>
            <td>CONTACTO : </td>
            <td><p align="left">
                <input type="text" name="contacto" size="100">
            </td>
          </tr>
          <tr>
            <td>TELEFONO :</td>
            <td><input type="text" name="tel" size="100"></td>
          </tr>
          <tr>
            <td width="42%">COMENTARIO: </td>
            <td width="58%"><p align="left">
                <input type="text" name="comentario" size="100">
            </p></td>
          </tr>
      </table></td>
    </tr>
  </table>
  <p>
    <input type="submit" value="Enviar" name="B1"> 
    <input type="reset" value="Restablecer" name="B2">
  </p>
    </p>
</form>
</body>
</html>

el cual consiste en un formulario que al ser llenado y oprimir el boton de "enviar" inserta los datos contenidos en los formularios y me envia a otra página en la cual se muestran los datos de mi tabla, el problema que tengo es no está insertando los datos a mi BD o mas bien inserta nullos y muestra las celdas vacias...alguien me podria decir en donde esta mi error???

Myakire · #2 (**permalink**) 23/04/2007, 15:20

Tienes un IF que no tengo idea para que lo quieres, preguntas por datos QueryString, pero tu formulario es POST.

Coloca esto al inicio de tu página para que constates que parámetros en realidad recibes:

Código:

Response.Write("Form<br>")
for each control in request.form
  for indice=1 to request.form(control).count
     response.write control&"="&request.form(control)(indice)&"<br>"
  next
next
Response.Write("QueryString<br>")
for each control in request.QueryString
  for indice=1 to request.QueryString(control).count
     response.write control&"="&request.QueryString(control)(indice)&"<br>"
  next
next
response.end

mary* · #3 (**permalink**) 23/04/2007, 16:11

Hola Myakire!!!...gracias x contestar!!!

Ya hice lo que me sugeriste...y pues cuando abro la página me muestra en la pantalla lo siguiente:

Código:

Form
QueryString

Como me comentas creo que estoy cometiendo un error con el post...pero no estoy segura cual es...

...o el error está en el querystring??

mary* · #4 (**permalink**) 23/04/2007, 16:16

Por otro lado olvidé comentarte lo del if...mi idea era utilizarlo para condicionar que si algun dato no estaba pues me enviara un mensaje de "llenar todos los datos" o algo así...pero como comentas ahorita tal cual esta...creo q no sirve para nada...