No inserta registro y recarga la misma pagina
Publicado por Victor Hernandez (2 intervenciones) el 18/06/2009 06:03:49
Por favor ayudenme, es urgente por que el evento es en 2 semanas y no logro entender que es...
ya tiene permisos la BD, la DSN esta bien, no se que mas pueda ser... no puedo insertar el registro, por lo tanto pues no me manda a la pagina de confirmacion.
Lo hize en dreamweaver, aqui esta el codigo:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/vive09.asp" -->
<%
Dim rsRegistro09
Dim rsRegistro09_cmd
Dim rsRegistro09_numRows
Set rsRegistro09_cmd = Server.CreateObject ("ADODB.Command")
rsRegistro09_cmd.ActiveConnection = MM_vive09_STRING
rsRegistro09_cmd.CommandText = "SELECT * FROM vive2009 ORDER BY ID DESC"
rsRegistro09_cmd.Prepared = true
Set rsRegistro09 = rsRegistro09_cmd.Execute
rsRegistro09_numRows = 0
%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_vive09_STRING
MM_editCmd.CommandText = "INSERT INTO vive2009 (xnombre, xapellidos, xemail, xcongre, xciudad, xestado, xtelefono, xcomentarios, xnumboleto) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("xnombre")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("xapellidos")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("xemail")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("xcongre")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("xciudad")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("xestado")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("xtelefono")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 203, 1, 1073741823, Request.Form("xcomentarios")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 50, Request.Form("xnumboleto")) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "registro_ok.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<!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=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<form action="<%=MM_editAction%>" method="post" name="form1" id="form1">
<table align="center">
<tr valign="baseline">
<td nowrap="nowrap" align="right"> </td>
<td><input type="submit" value="Insert record" /></td>
</tr>
</table>
<input type="hidden" name="xnombre" value="Request.Form("inputcontactname="inputContactName" />
<input type="hidden" name="xapellidos" value="Request.Form("inputcontactlastname="inputContactLastname" />
<input type="hidden" name="xemail" value="Request.Form("inputcontactemail="inputContactEmail" />
<input type="hidden" name="xcongre" value="Request.Form("inputcontactiglesia="inputContactIglesia" />
<input type="hidden" name="xciudad" value="Request.Form("inputcontactciudad="inputContactCiudad" />
<input type="hidden" name="xestado" value="Request.Form("inputcontactestado="inputContactEstado" />
<input type="hidden" name="xtelefono" value="Request.Form("inputcontacttelefono="inputContactTelefono" />
<input type="hidden" name="xcomentarios" value="Request.Form("inputcontactmessage="inputContactMessage" />
<input type="hidden" name="xnumboleto" value="<%="VV09" & (rsRegistro09.Fields.Item("ID").Value)+1%>" />
<input type="hidden" name="MM_insert" value="form1" />
</form>
<p> </p>
</body>
</html>
<%
rsRegistro09.Close()
Set rsRegistro09 = Nothing
%>
Agradezco su urgente ayuda!!
DLB
ya tiene permisos la BD, la DSN esta bien, no se que mas pueda ser... no puedo insertar el registro, por lo tanto pues no me manda a la pagina de confirmacion.
Lo hize en dreamweaver, aqui esta el codigo:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/vive09.asp" -->
<%
Dim rsRegistro09
Dim rsRegistro09_cmd
Dim rsRegistro09_numRows
Set rsRegistro09_cmd = Server.CreateObject ("ADODB.Command")
rsRegistro09_cmd.ActiveConnection = MM_vive09_STRING
rsRegistro09_cmd.CommandText = "SELECT * FROM vive2009 ORDER BY ID DESC"
rsRegistro09_cmd.Prepared = true
Set rsRegistro09 = rsRegistro09_cmd.Execute
rsRegistro09_numRows = 0
%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_vive09_STRING
MM_editCmd.CommandText = "INSERT INTO vive2009 (xnombre, xapellidos, xemail, xcongre, xciudad, xestado, xtelefono, xcomentarios, xnumboleto) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("xnombre")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("xapellidos")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("xemail")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("xcongre")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("xciudad")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("xestado")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 202, 1, 255, Request.Form("xtelefono")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 203, 1, 1073741823, Request.Form("xcomentarios")) ' adLongVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 50, Request.Form("xnumboleto")) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "registro_ok.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<!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=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<form action="<%=MM_editAction%>" method="post" name="form1" id="form1">
<table align="center">
<tr valign="baseline">
<td nowrap="nowrap" align="right"> </td>
<td><input type="submit" value="Insert record" /></td>
</tr>
</table>
<input type="hidden" name="xnombre" value="Request.Form("inputcontactname="inputContactName" />
<input type="hidden" name="xapellidos" value="Request.Form("inputcontactlastname="inputContactLastname" />
<input type="hidden" name="xemail" value="Request.Form("inputcontactemail="inputContactEmail" />
<input type="hidden" name="xcongre" value="Request.Form("inputcontactiglesia="inputContactIglesia" />
<input type="hidden" name="xciudad" value="Request.Form("inputcontactciudad="inputContactCiudad" />
<input type="hidden" name="xestado" value="Request.Form("inputcontactestado="inputContactEstado" />
<input type="hidden" name="xtelefono" value="Request.Form("inputcontacttelefono="inputContactTelefono" />
<input type="hidden" name="xcomentarios" value="Request.Form("inputcontactmessage="inputContactMessage" />
<input type="hidden" name="xnumboleto" value="<%="VV09" & (rsRegistro09.Fields.Item("ID").Value)+1%>" />
<input type="hidden" name="MM_insert" value="form1" />
</form>
<p> </p>
</body>
</html>
<%
rsRegistro09.Close()
Set rsRegistro09 = Nothing
%>
Agradezco su urgente ayuda!!
DLB
Valora esta pregunta
0