<%
' response.write("Thank you for your order. You will be contacted whitin 24 hours ")
'end if
'response.End' show thankyou page
'if not request("thanksPage")="" then
' response.Redirect(request("thanksPage"))
'else
' response.write("Thank you for your order. You will be contacted whitin 24 hours ")
'response.End
' email values to set in form
'--------------------------------
' SendersName
' SendersEmail
' EmailSubject
' EmailRecipient
' message
' thanksPage
' set up email values
'sendersName=request("contact")
'sendersEmail=request("email")
'if sendersName="" then sendersName=sendersEmail
EmailSubject="loppis"
'I hardcode the email recipient but you might want this flexibility
EmailRecipient="info@combcard.com" ' required
EmailRecipient1="scopecolor@yahoo.se"
'contact=request("contact")
'email=request("email")
'amount=request("amount")
'amountred=request("amountred")
'amountblue=request("amountblue")
'ownbackside=request("ownbackside")
'ownpackaging=request("ownpackaging")
loppis=request("loppis")
' create email
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.Host = "mail2.space2u.com"
objNewMail.From = "info@combcard.com"
objNewMail.Subject = EmailSubject
objNewMail.To = EmailRecipient
objNewMail.Body = "loppis: " & loppis & vbcrlf
' send email
objNewMail.Send
if not email ="" then
Set objNewMail2 = Server.CreateObject("CDONTS.NewMail")
objNewMail2.Host = "mail2.space2u.com"
objNewMail2.From = "info@combcard.com"
objNewMail2.Subject = "loppis"
objNewMail2.To = EmailRecipient2
objNewMail2.Body = "loppis: " & loppis & vbcrlf
objNewMail2.Send
Set objNewMail2 = Nothing
end if
Set objNewMail = Nothing
' show thankyou page
'if not request("thanksPage")="" then
' response.Redirect(request("thanksPage"))
'else
' response.write("Thank you for your order. You will be contacted whitin 24 hours ")
'end if
%>
Loppis.org - Din vägvisare i loppis Sverige
Tack
för hjälpen!
Ditt
bidrag kommer att läggas in i registret.
Tryck
bakåt i webläsaren för att skicka in en till.