Foros del Web » Programando para Internet » ASP Clásico »

Ayudaaaa!! Como enviar carro en ASP

Estas en el tema de Ayudaaaa!! Como enviar carro en ASP en el foro de ASP Clásico en Foros del Web. Bueno el tema es así estoy haciendo un Carro de Compras en ASP me quede en un punto... quiero enviar el carro que obtuve por ...
  #1 (permalink)  
Antiguo 22/08/2004, 14:52
Avatar de AJVEvoluzione  
Fecha de Ingreso: agosto-2004
Ubicación: Buenos Aires
Mensajes: 195
Antigüedad: 19 años, 9 meses
Puntos: 1
Ayudaaaa!! Como enviar carro en ASP

Bueno el tema es así estoy haciendo un Carro de Compras en ASP me quede en un punto... quiero enviar el carro que obtuve por E-mail y no puedo... lo que tengo en el ASP Sub muestra_carro y Sub Muestra formulario y Sub guardar (lo uso para tener un registro en TXT de los pedidos) y Sub envio_mail. Bueno todo por separado y no se como anexar los datos para poder mandar el Sub muestra_carro dentro del Sub envio_mail (mandar el e-mail con el pedido los datos del formulario y ponerlo en el TXT). se entiende?


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

Dim CONST_LIBRO, oFSO, f, archivo, accion, contenido

CONST_LIBRO="001.txt"

set oFSO=Server.CreateObject("Scripting.FileSystemObje ct")

accion=Trim (CStr(Request.QueryString("a")))

select case accion
case "guardar"
Guardar
envio_mail
case else
muestra_carrito
MostrarFormulario

end select

set oFSO=nothing

sub muestra_carrito
precio_total=0
if session("num_prod")=0 then
response.write "el carrito está vacio"
else
for i=1 to session("num_prod")
response.write "linea de producto " & i & "<br>"
if session("producto" & i) <> 0 then
response.write "Identificador de producto " & session("producto" & i) & "<br>"
response.write "Nombre de producto " & session("nombre" & i) & "<br>"
response.write "Precio de producto " & session("precio" & i) & "<br>"
response.write "<a href=""borrar_producto.asp?linea=" & i & """>Borrar producto</a>"
precio_total = precio_total + session("precio" & i)
else
response.write "Este producto ha sido borrado del carrito"
end if
response.write "<p>"
next
response.write "El precio total del producto es " & precio_total & "<p>"
end if
end sub 'muestra_carrito

sub envio_mail

Dim xname,x,zname,z,dmensaje,d
xname = "Nombre"
x= Request.Form("nombre")
zname = "E-mail"
z= Request.Form("mail")
dmensaje = "Mensaje"
d= Request.Form("mensaje")


Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "[email protected]"
ObjMail.From = "[email protected]"
ObjMail.Subject = "Pedido"
ObjMail.Body = xname & vbcrlf&_
x & vbcrlf&_
zname & vbcrlf&_
z & vbcrlf&_
dmensaje & vbcrlf&_
d

ObjMail.Send
Set ObjMail = Nothing
Response.Redirect "http://www.miweb.com/okpedido.htm"

end sub 'envio_mail

Sub Guardar

Dim nombre, mail, mensaje, fecha, archivo, f

fecha=Day(Now())&"/"&Month(Now())&"/"&Year(Now())
nombre=Trim(CStr(Request.Form("nombre")))
mail=CStr(Request.Form("mail"))
mensaje=CStr(Request.Form("mensaje"))
ip=CStr(Request.servervariables("remote_host"))

if nombre <> "" and mensaje <>"" then
set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )
'Abro el archivo como un flujo de texto; 8: ForAppending, añadimos al final
set f=archivo.OpenAsTextStream(8)
f.WriteLine("<hr noshade>")
f.WriteLine("<b>"&nombre&" ("&mail&")</b> escribió el "&fecha&":<br>")
f.WriteLine(mensaje)
f.WriteLine("<br><br>")
f.WriteLine("mensaje: "&ip&"")


'Cierro el fichero
f.Close
set f=nothing
set archivo=nothing
Response.Write("<small>Se ha añadido con éxito tu comentario</small>")
end if

End Sub 'Guardar


Sub MostrarFormulario

%>

<br><br><br><hr size=2>
<TABLE BORDER="0" ALIGN="center">
<FORM NAME="form1" METHOD="post" ACTION="enviar.asp?a=guardar">
<TR>
<TD>Tu nombre:</TD>
<TD><INPUT TYPE="text" style="width: 170px; height: 18px; font-family: Arial, Verdana; font-size: 8pt; font-weight: bold; border: 1px solid rgb(153,255,255)" NAME="nombre"></TD>
<TR>
<TD>E-mail:</TD>
<TD><INPUT TYPE="text" style="width: 170px; height: 18px; font-family: Arial, Verdana; font-size: 8pt; font-weight: bold; border: 1px solid rgb(153,255,255)" NAME="mail"></TD>
<TR>
<TD>Mensaje:</TD>
<TD><textarea ROWS="5" COLS="30" style="width: 270px; height: 100px font-family: Arial, Verdana; font-size: 8pt; font-weight: bold; border: 1px solid rgb(153,255,255)" NAME="mensaje"></textarea></TD>
<TR>
<TD COLSPAN="2">
<center><INPUT TYPE="submit" VALUE="Escribir"><INPUT TYPE="reset" VALUE="Limpiar">
</TD>
</TABLE>

</FORM>

<%
End Sub 'MostrarFormulario

%>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:08.