Como insertar en un envio de e-mail valores cambiables 
Bueno el tema es así tengo que insertar en el envio de un e-mail Valores de un formulario que pueden ESTAR o NO 
ejemplo:el codigo en Perl sería algo asi:
print MAIL "$QUANTITY_1 \$$PRICE_1 $ID_1 - $NAME_1 $ADDTLINFO_1 \n";
if( $NAME_2 ) {print MAIL "$QUANTITY_2 \$$PRICE_2 $ID_2 - $NAME_2 $ADDTLINFO_2 \n";}
if( $NAME_3 ) {print MAIL "$QUANTITY_3 \$$PRICE_3 $ID_3 - $NAME_3 $ADDTLINFO_3 \n";}
osea (if) si hay NAME_2 colocar los valores QUANTITY_2, PRICE_2, ID_2, etc. ...
y si hay NAME_3 colocar los valores QUANTITY_3, PRICE_3, ID_3, etc.
no se como escribir los valores
en el formulario de envio de un e-mail caundo pueden o no estar los datos. lo que tengo es esto:
Código:
Como hago para insertar las otras lineas de productos en el mail si estan o no?, porque cuando no estan me da error. saludos sub envio_mail
Dim ft,xf,xname,x,aname,a,zname,z,dmensaje,d,l,l2,l3,l4,l5,r1,shname,shi,tname,t,stname,st,n1,Q1,p1,i1,ip
ft=Day(Now())&"/"&Month(Now())&"/"&Year(Now())
xf = "Fecha: "
n1= Request.Form("NAME_1")
Q1= Request.Form("QUANTITY_1")
p1= Request.Form("PRICE_1")
i1=Request.Form("ID_1")
xname = "Nombre: "
x= Request.Form("b_first")
aname = "Apellido: "
a= Request.Form("b_last")
zname = "E-mail: "
z= Request.Form("b_email")
dmensaje = "Comentarios: "
d= Request.Form("comment")
l = "==================================================================="
l2 = "-------------------------------------------------------------------"
l3 = "-------------------------------------------------------------------"
l4 = "-------------------------------------------------------------------"
r1 = "Cantidad Precio Producto ID Nombre del Producto"
shname = "GASTOS DE ENVÍO: "
shi= Request.Form("SHIPPING")
tname = "TOTAL: "
t= Request.Form("TOTAL")
stname = "SUBTOTAL: "
st= Request.Form("SUBTOTAL")
ip=CStr(Request.servervariables("remote_host"))
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "[email protected]"
ObjMail.From = "-Mi web|-<[email protected]>"
ObjMail.Subject = "Nueva Orden Online"
ObjMail.Body = xf & ft & vbcrlf&_
xname & x & vbcrlf&_
aname & a & vbcrlf&_
zname & z & vbcrlf&_
l & vbcrlf&_
r1 & vbcrlf&_
l2 & vbcrlf&_
n1 & Q1 & p1 & i1 & vbcrlf&_
l3 & vbcrlf&_
shname & shi & vbcrlf&_
stname & st & vbcrlf&_
tname & t & vbcrlf&_
l4 & vbcrlf&_
dmensaje & d & vbcrlf&_
ip
ObjMail.Send
Set ObjMail = Nothing
Response.Redirect "http://www.miweb/ok.htm"
end sub 'envio_mail
