Codigo sencillo ASP que no me funciona :(

Juan Miguel
08 de Septiembre del 2003
Alguien me puede mirar este codigo por favor.
Creo que tengo mal la sintaxix en la linea strSQL " INSERT INTO... " porqu siempre me da un error del tipo "No coinciden los tipos de datos en la expresin de criterios."

CODIGO:
<HTML><HEAD>
<TITLE>Ejemplo 20 ASP Aadir visita</TITLE>
</HEAD>
<BODY BGCOLOR=#0055AA LINK=#AAAA00 VLINK=#AAAA00>
<FONT FACE=Verdana SIZE=5 COLOR=YELLOW><B></B>
<CENTER> PRESUPUESTO </CENTER>
</FONT><BR>
<BR>
<font color=WHITE>
<% Dim placa, pprecio
placa = Request.Form("placa")
pprecio = Request.Form("cpu")

%>
<%
On Error Resume Next
Set Conexion = CreateObject ("ADODB.Connection")
Conexion.Open "pdaplus"
strSQL ="SELECT Id FROM Pedidos ORDER BY 1 DESC"
Set miConexion = Conexion.Execute(strSQL)
Dim Id
If Not miConexion.EOF Then
Id = miConexion("Id")
Id = Id + 1
Else
Id = 1
End If

strSQL = "INSERT INTO Pedidos VALUES ('Id' , 'placa', ' pprecio')"
Set miConexion = Conexion.Execute(strSQL)
If Err.Description <> "" then
Response.Write "<B>Error en Base de Datos: " & Err.Description & "</B>"
Else
Response.Write("<P><FONT FACE=Verdana SIZE=2 COLOR=#FFFFDD><B>Se han actualizado los siguientes datos:</B></FONT></P>")
Response.Write ("<P><FONT FACE=Verdana SIZE=2 COLOR=FFFFFF><B>Nombre: " & placa1 & "<BR>E-mail: " & cpu1 & "<BR>P&aacute;gina Web: " & pprecio1 & "<BR>Pa&iacute;s: " & Pais & "<BR>Comentario: " & Comentario & "</FONT>")
End If


miConexion.Close
Conexion.Close
Set miConexion = Nothing
Set Conexion = Nothing
%>

</font>
</body>
</html>

pablinweb
08 de Septiembre del 2003
fijate si estas pasando un valor numerico como texto, solo el texto se pasa entre comillas simples, los valores numericos van sueltos y las fechas entre numerales ej:
'texto', 5, #27/2/03#

Saludos

Zulu
08 de Septiembre del 2003
El error, efectivamente, est en el Insert

strSQL = "INSERT INTO Pedidos VALUES ('Id' , 'placa', ' pprecio')"

Tendras que poner algo as
strSQL = "INSERT INTO (Columna1, Columna2, Columna3) VALUES (Dato1, Dato2, Dato3) WHERE Condicion"

siento Columna1 el nombre de la columna donde quieres insertar el elemento y Dato1 el elemento a insertar. Como ejemplo

"INSERT INTO Usuarios (Nombre_Usuario, Id_Usuario) VALUE ('" & strNombre & "', " & lngID & ") WHERE Casa_Usuario = '" & strNombreCasa & "'"

marianobf
08 de Septiembre del 2003
Como se hace para insertar datos en 2 o mas tablas. Ya que este codigo, no funciona.
"INSERT INTO Usuarios (Nombre_Usuario, Id_Usuario) ,DUsuarios(NomUsr,ApeUsr) VALUE ('" & strNombre & "', " & lngID & ") ('" & strNombre & "', '"&Ape&"') WHERE Casa_Usuario = '" & strNombreCasa & "'"