Ayuda Con Asp En Dreamweaver!!!!

alegna_13 · #1 (**permalink**) 16/04/2008, 12:44

Hola ! espero que alguien me pueda ayudar con este pequeño prblema :

¿como guardo los datos de un formulario en dreamweaver, que sean introducidos en web, en una tabla de sql?

Estoy usando ASP y necesito guardar datos como (nombre,direccion,telefono y comentario) en una tabla ya creada en sql llamada formulario.

Ya trate de hacerlo guiandome en un ejemplo pero a la hora de darle enviar en el formulario me manda error en la pagina; no me abre nada ni lo guarda en la tabla de sql

Shiryu_Libra · #2 (**permalink**) 16/04/2008, 12:46

te marca algun error, o intentamos al clarividente?

no ya en serio, algun error de permisos quizas?, no encuentra la pagina??

como es el codigo de tu ejemplo, tienes direccionada bien la tabla, con el usuario y contraseña correctos???

alegna_13 · #3 (**permalink**) 16/04/2008, 12:53

ME MARCA UN ERROR DE QUE NO SE PUEDE MOSTRAR LA MAQUINA Y EN LA BARRA DEL BUSCADOR ME PONE ESTO:
D:\SISTEMAS\prueba\acg\<%response.Write(

El codigo del proceso que se supone hace para la insercion de los datos es este:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<script language="VBScript" runat="server">

'-------------------- Función para agrega un registro -------------------------
Function agregar_rec()
Dim cnn 'Variable que hace referencia a un objeto connection
Dim str 'Variable que hace referencia a una cadena de conexión
Dim cmd 'Objeto command
Dim SQLstr 'Variable para el enunciado SQL

response.Write(nombre & "")
response.Write(direccion & "")
response.Write(telefono & "")
response.Write(comentario & "")

'Crear un objeto de conexión
Set cnn = CreateObject("ADODB.Connection")
str = MM_cnn_prueba_STRING
cnn.connectionstring = str
cnn.open

On Error Resume Next
If Err Then
Response.write ("Error en la conexión" &" ")
response.Write(err.descripion)
exit function
agregar_tram = false
else
response.write ("Conexion exitosa"&" ")
End If

Set cmd = CreateObject("ADODB.command")
SQLstr="INSERT INTO formulario (nombre,direccion,telefono,comentario)"
SQLstr= SQLstr & " VALUES ('"
SQLstr= SQLstr & "','" & nombre
SQLstr= SQLstr & "','" & direccion
SQLstr= SQLstr & "','" & telefono
SQLstr= SQLstr & "','" & comentario
response.Write(SQLstr)
cmd.Activeconnection = cnn
cmd.commandtext = SQLstr
cmd.execute
If Err Then
Response.Write ("Error en la insercion de datos ")
response.Write(err.description)
cnn.close
agregar_tram = false
Exit Function
else
response.write ("Insercion de datos exitosa ")
End if
agregar_rec = true
cnn.close
cmd = nothing
End function
</script>
<%
'------------------------------- Inicio ---------------------------------------
%>
<%
Dim nombre
Dim direccion
Dim telefono
Dim comentario

vrnombre= request.Form("txt_rnom")
vrdireccion = request.form("txt_rpt")
vrtelefono = request.Form("txt_rmt")
vrcomemtario = request.Form("ta_rnarr")

if agregar_rec() = true then
response.Write("<center>")
response.Write("Se agregaron los datos")
response.Write("</center>")
Dim QS
Dim URL
QS = "enviado.asp"
URL = QS

response.Redirect(URL)
else
response.Write("")
response.Write("El agregado falló & ")
response.Write("")
End if
%>
<body>
</body>
</html>

ESPERO LE ENTIENDAS Y PUEDAS AYUDARME !!!!!!!

i_e_s27 · #4 (**permalink**) 16/04/2008, 14:01

Te olvidaste de cerrar un parentesis aca:

SQLstr="INSERT INTO formulario (nombre,direccion,telefono,comentario)"
SQLstr= SQLstr & " VALUES ('"
SQLstr= SQLstr & "','" & nombre
SQLstr= SQLstr & "','" & direccion
SQLstr= SQLstr & "','" & telefono
SQLstr= SQLstr & "','" & comentario

SQLstr= SQLstr & ")"

Saludos!

i_e_s27 · #5 (**permalink**) 16/04/2008, 14:27

Como observacion...

Para que pones todo esto:

Cita:

Dim QS
Dim URL
QS = "enviado.asp"
URL = QS

response.Redirect(URL)

Si puedes poner solo esto:

Cita:

Response.Redirect("enviado.asp")