4 UK Shopping Contact Form

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '************************************************************************************** '** Copyright Notice '** Websunami.Com - FORM TO MAIL SCRIPT - (f2m.asp) '** Copyright 2003-2004 Volkan Ozer All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** This program is Puplished as is WITHOUT ANY WARRANTY !!!!! '** All copyright notices must remain in tacked in the script '** No official support is available for this program '** Support questions are NOT answered by e-mail '** For non-support related questions you can contact us via info@websunami.com '** http://www.websunami.com '************************************************************************************* Dim MailTo Dim mailcomp Dim smtp Dim From ' variables statrs HERE*********************************** If request ("email") = "" Then 'where email is the name of the filed in the form From = "fake@mydomain.com" 'type a default e-mail here. even a fake one will be ok Else From = Request.Form ("email") 'where email is the name of the field in the form End If ' this will check the Email from the form submitted and assign the From address. ' If Email field is left blank then it assign the fake address. YOu Must Enter an eMail address Above MailTo = "support@4ukshopping.co.uk" ' this is where you want e-mails to go to *** mailcomp = "CDOSYS" ' You must specify a component to use ' CDONTS, CDOSYS, ASPEmail, JMail **** smtp = "auth.smtp.1and1.co.uk" ' If using CDONTS, this is not necessary (supported on Win2K, NT4 but not on WinXP Pro) ' If you are having problems with CDOSYS on a XP Pro, Search and Download CDONTS from the net ' and register the dll using regsvr **** ' for all others you must specify an SMTP server %> <% 'Generates the HTML formatted e-mail Dim html html = "" html = html & "" html = html & "" html = html & "" html = html & "4 UK Shopping Contact Form" html = html & "" ' Remove the quote and point to your css file if you wish to use one html = html & "" html = html & "" 'email bg color html = html & "4 UK Shopping Contact Form" html = html & "Name: " & Request.Form("name") html = html & "
" html = html & "Email Address: " & Request.Form("email") html = html & "
" html = html & "Enquiry: " & Request.Form("text1") html = html & "
" html = html & "Question: " & Request.Form("question") html = html & "
" html = html & "

" html = html & "Users IP: " & Request.ServerVariables("REMOTE_ADDR") html = html & "

" html = html & "" & "" & "" html = html & "

" html = html & "*******************************************************" html = html & "" html = html & "" ' ************************ $$$$ variables UP TO here $$$************************** %> <% ' ************************ DO NOT MAKE ANY CHANGES BELOW ******************* ' Which mail component to use? if mailcomp = "CDOSYS" then set imsg = createobject("cdo.message") set iconf = createobject("cdo.configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp .Update End With With iMsg Set .Configuration = iConf .To = MailTo .From = From .Subject = Request.Form("Subject") .HTMLBody = HTML .fields.update .Send End With set imsg = nothing set iconf = nothing set HTML = nothing else if mailcomp = "CDONTS" then Dim Avanos Set Avanos = CreateObject("CDONTS.NewMail") Avanos.From= From Avanos.To= MailTo Avanos.Subject= Request.Form("Subject") Avanos.BodyFormat=0 Avanos.MailFormat=0 Avanos.Body=HTML Avanos.Send set HTML = nothing set Avanos=nothing else if mailcomp = "ASPEmail" then Set WSweb = Server.CreateObject("Persits.MailSender") WSweb.Host = smtp WSweb.From = From WSweb.AddAddress MailTo WSweb.Subject = Request.Form("Subject") WSweb.Body = HTML WSweb.IsHTML = True WSweb.Send set WSweb = Nothing set HTML = Nothing else if mailcomp = "JMail" then set msg = Server.CreateObject( "JMail.Message" ) msg.Logging = true msg.ContentType = "text/html" msg.From = From msg.AddRecipient = MailTo msg.Subject = Request.Form("Subject") msg.Body = HTML msg.Send( smtp ) Set msg = Nothing set HTML = Nothing end if end if end if end if %> Destiny's Angel - 6 card tarot reading health

Choose a card from above to find your destiny in
Health, Love, Career or Finance

Health

Please enter your details and question below

Please provide your name, email address and question below and submit the form. After submitting the form you will be taken to a confirmation page with a PayPal payment link, please click on the PayPal link to complete your reading. Once we receive this confirmation we will perform your reading and email you a reply with an answer to your question. If you would rather have your reading sent by post please provide your address in the question field, otherwise we will send to your email address.

6 card Tarot Reading (Health) - £5.00

Your name:*
Your email address:*
Your question:*

* = Required