ASP - No inserta registro y recarga la misma pagina

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:No inserta registro y recarga la misma pagina

Publicado por weirdmix (210 intervenciones) el 18/06/2009 20:30:02
q error te manda??
q cadena de conexion usas??
q hace tu codigo asi como esta??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:No inserta registro y recarga la misma pagina

Publicado por victor (2 intervenciones) el 21/06/2009 01:18:09
te agradezco muchisisisimo, ya resolvi el problema, era que estaba corriendo el sitio en url temporal

gracias de antemano!!!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar