URGENT HELP WITH THIS PAGE, PLEASE 2

[252525]

PLEASE, HELP ME WITH THIS.I´M NOT AN ASP PROGRAMMER SO I´M HAVING MILLIONS OF PROBLEMS. PLEASE, TAKE A LOOK AT THIS ANT TELL ME WHAT´S WRONG. MAYBE I CAN´T MAKE MULTIPLE CONECTIONS? TELL ME PLEASE.....

<%if Request.Form(&quot;PAGO&quot=&quot;TARJETA DE CRÉDITO&quot; then %>
<!---abrimos conexion --->
<% set miconexion=server.CreateObject (&quot;ADODB.Connection&quot
miconexion.Open &quot;prov47.provimad&quot;
Set rs1=server.CreateObject(&quot;ADODB.Recordset&quot
%>

<!---sacamos el id_precio que es la referencia del servicio demandado,
lo vamos metiendo todo en variables para insertarlo luego en otras tablas ---->

<%SERV=Request.Form(&quot;SERVICIO&quot%>

<%c=&quot;select * from Precio where Servicio='&quot;&SERV&&quot;'&quot;
rs1.Open c,miconexion,3,3 %>
<%set precio=rs1(&quot;precio&quot%>
<%set id_precio=rs1(&quot;id_precio&quot
rs1.close
set rs1= Nothing
miconexion.close
set miconexion=Nothing
%>


<!---sacamos la maxima referencia de compra y le sumamos uno y esta
sera la referencia de este pedido ---->
<% set miconexion2=server.CreateObject (&quot;ADODB.Connection&quot
miconexion2.Open &quot;prov47.registro&quot;
<%Set rs2=server.CreateObject(&quot;ADODB.Recordset&quot%>
<%b=&quot;select max(referencia) from micesta as refer&quot;
rs2.Open b,miconexion2,3,3 %>
<%set referencia=rs2(&quot;refer&quot+1%>

<!---insertamos esta referencia en la tabla mis pedidos con el total de la compra --->

<%Set rs3=server.CreateObject(&quot;ADODB.Recordset&quot%>
<%d=&quot;insert into mispedidos (id_pedido, total)
values ('&quot;&referencia&&quot;', '&quot;&precio&&quot;')&quot;
rs3.Open d,miconexion2,3,3 %>

<!---insertamos datos en micesta ---->
<%Set rs4=server.CreateObject(&quot;ADODB.Recordset&quot%>
<%e=&quot;insert into micesta (id_pedido, referencia, descripcion, unidades, precio)
values ('&quot;&referencia&&quot;', '&quot;&id_precio&&quot;', '&quot;&SERV&&quot;', '1', '&quot;&precio&&quot;')&quot;
rs4.Open e,miconexion2,3,3 %>

<form action=&quot;

https://194.224.159.61/simulador/teargral.exe&quot;

method=post id=formulario name=formulario>
<input type=&quot;hidden&quot; name=&quot;order&quot; value=&quot;<%=referencia%>&quot;>
<input type=&quot;hidden&quot; name=&quot;store&quot; value=&quot;t40&quot;>
<a href=&quot;javascript:validar()&quot;>
<div align=&quot;center&quot;>
<img src=&quot;../img/bot_continuar.GIF&quot; border=&quot;0&quot;>
</div>
</a>
</form>
<%
rs2.close
set rs2= Nothing
rs3.close
set rs3= Nothing
rs4.close
set rs4= Nothing

miconexion2.close
Set miconexion2 = Nothing

end if %>


<!---aqui mandamos el mail ---->

<%
set mailer = server.createobject(&quot;SMTPsvg.Mailer&quot

Mailer.FromName = &quot;Zona Pública&quot;
Mailer.FromAddress = &quot;desarrollo@provimad.es&quot;
Mailer.RemoteHost = &quot;mail.rapidsite.net&quot;
Mailer.AddRecipient &quot;Provimad&quot;, &quot;blanca.palacian@verticalia.com&quot;
Mailer.Subject = &quot;Formulario&quot;


%>


<%
For each Item in Request.Form ' Loop through each Form item
strMsgInfo = strMsgInfo & Item & &quot;: &quot; & Request.Form(Item) & vbCrLf
next

if Request.Form(&quot;PAGO&quot=&quot;TARJETA DE CRÉDITO&quot; then
strMsgHeader = &quot;Datos del formulario&quot; & vbCrLf & &quot;ref: &quot; & referencia
else
strMsgHeader = &quot;Datos del formulario&quot; & vbCrLf & &quot;&quot;
end if
strMsgFooter = vbCrLf & &quot;* *&quot;
Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter




if Mailer.SendMail then
' si es con tarjeta queremos ir a la tpv, si no nos vamos a pag de confirmacion
if Request.Form(&quot;PAGO&quot=&quot;TARJETA DE CRÉDITO&quot; then
else
Response.Redirect (&quot;

http://www.provimad.es/form/confirmar.htm&quot;)

end if
else
' Message send failure
Response.Write (&quot;An error has occurred.<BR>&quot
' Send error message
Response.Write (&quot;The error was &quot; & Mailer.Response)
end if%>



</body>
</html>

 

[link9]

post your error message(s) and point out what line they are on --

 

[252525]

THAT´S THE PROBLEM. MY SERVER DOESN´T TELL ME WHERE IS THE PROBLEM JUST SAYS THAT THERE IS ONE PROBLEM WITH MY PAGE AND THAT´S ALL.
THIS IS THE ERROR: (SORRY, IT´S SPANISH)

No se puede mostrar la página
Hay un problema con la página solicitada y no puede ser mostrada..

--------------------------------------------------------------------------------

Pruebe lo siguiente:

Abra la página principal de

http://www.provimad.es

y busque vínculos a la información que desea.
Haga clic en el botón Actualizar o vuelva a intentarlo más tarde.

Haga clic en Búsqueda para buscar información en Internet.
También puede ver una lista de sitios relacionados.


HTTP 500 - Error interno del servidor
Internet Explorer

THANKS A LOT ANYWAY

 

[JrClown]

La Pagina tiene que decirte en que linea esta el error. A mi me parece que tienes que crear una seccion de <%SERV=Request.Form(&quot;SERVICIO&quot%> para que puedas usarla en todas las paginas.

Primero ve si la pagina te da en que linea esta el error. O si no, trata de crear una seccion asi:
SERV=Request.Form(&quot;SERVICIO&quot
Session(&quot;servicio&quot = request.form(&quot;servicio&quot




&quot;The most important ingredient in the formula of success is knowing how to get along with people&quot;
<%
Jr Clown
%>

 

[252525]

Hola, muchas gracias por echarme una mano.
No me dice en que línea es el error ni de qué tipo es. Lo unico que aparece en la pagina es eso que he escrito antes y claro, no tengo ni idea que qué coño está fallando y tengo que entregar esto hoy!!! he probado lo de servicio que me ponias pero tampoco ayuda, no se, no tengo ni idea de donde esta el error.
Si se le ocurre algo a alguien por favor, echadme una mano, de acuerdo? podeis escribidme a blancapalacian@hotmail.com, muchas gracias a todos

 

[JrClown]

No encuentro ningun problema con la code, pero como te digo, es imposible adivinar donde esta el error si no se ve.

I don't see any error with the code but, as I told you, it's impossible to guess where the error is without seeing it. &quot;The reward of one duty done is the power to fulfill another&quot;
<%
Jr Clown
%>

 

[JrClown]

Acabo the abrir la pagina y me dice que hay un error en la linea #10. Me parece que el problema no puede estar en tu code arriba, pero en lineas antes de llegar a tu forma.
Chequea que todo este bien deletreado en la linea 10.

I just try opening your page and it prompts me to an error on line 10. It seems the error could be on a line not on your code above but on a line before your form.
See that everything is spelled correctly on line 10.
&quot;The reward of one duty done is the power to fulfill another&quot;
<%
Jr Clown
%>

 

[252525]

I can see the error message now with Netscape!!!
Thanks a lot for your help.
Mil gracias amigo,
aqui estoy para lo que quieras

 

[JrClown]

Fue un placer el poderte ayudado en lo que púde.
My pleasure helping you on what I could. &quot;The reward of one duty done is the power to fulfill another&quot;
<%
Jr Clown
%>