<% If Request.Form("ITEM_NAME") <> "" AND Request.Form("AMOUNT") <> "" Then Session("item_name") = Request.Form("ITEM_NAME") Session("amount") = Request.Form("AMOUNT") End If If Request.Form("Gift From E-Mail") <> "" AND Request.Form("Gift From Full Name:") <> "" Then On Error GoTo 0 emailBody = "" For Each i in Request.Form emailBody = emailBody & i &" "& Request.Form(i) &VbCrLf Next With Server.CreateObject( "OSSMTP.SMTPSession" ) .Server = "localhost" .MailFrom = "gift_subscription@www.littlemountainprinting.com" .SendTo = "Lmprint@comcast.net" '.SendTo = "jdeseno@eshcom.com" .MessageSubject = "Gift Subscription" .MessageText = emailBody .SendEmail() End With url = "https://www.paypal.com/cgi-bin/webscr" url = url & "?on0=Type&os0=Gift+Subscription&add=1&cmd=_xclick&business=Lmprint%40comcast.net&item_name="& Session("item_name") &"+Subscription&amount="& Session("amount") &"&no_shipping=1" url = url & "&return=http%3A%2F%2Fwww.littlemountainprinting.com/" url = url & "&cancel_return=http%3A%2F%2Fwww.littlemountainprinting.com%2Fcancel_payment.asp&cn=Comments¤cy_code=USD&lc=US&bn=PP-ShopCartBF" Response.Write url Response.Redirect url End If %>