sutton silver
04-21-2009, 11:36 AM
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' declare variables
Dim IndexStorm_Name
Dim IndexStorm_Tel
Dim IndexStorm_Handsets
Dim IndexStorm_BusinessName
Dim IndexStorm_Email
' get posted data into variables
IndexStorm_Name = Trim(Request.Form("IndexStorm_Name"))
IndexStorm_Tel = Trim(Request.Form("IndexStorm_Tel"))
IndexStorm_Handsets = Trim(Request.Form("IndexStorm_Handsets"))
ContactUs_BusinessName = Trim(Request.Form("ContactUs_BusinessName"))
IndexStorm_Email = Trim(Request.Form("IndexStorm_Email"))
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= Trim(request.form("IndexStorm_Email"))
MyCDONTSMail.To= "sample_email@sample-mail-to-email-address.co.uk"
MyCDONTSMail.Subject="Sample Subject"
MyBody = "Hi Sample, you have received a enquiry from your website...see below:" & vbCrLf & vbCrLf
MyBody = MyBody & "Contact Name: " & Request.Form("IndexStorm_Name") & vbCrLf
MyBody = MyBody & "Telephone Number: " & Request.Form("IndexStorm_Tel") & vbCrLf
MyBody = MyBody & "Number of Handsets: " & Request.Form("IndexStorm_Handsets") & vbCrLf
MyBody = MyBody & "Business Name: " & Request.Form("IndexStorm_BusinessName") & vbCrLf
MyBody = MyBody & "Contacts Email: " & Request.Form("IndexStorm_Email") & vbCrLf
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>
I have this piece of code which I have used for a number of projects now, but I now need a piece of code that will run with Chilisoft ASP for hosting reasons... Could this piece of code be adapted? If so can anyone help or give me an example of each parts of the syntax?
Cheers
C - Silver
<%
' declare variables
Dim IndexStorm_Name
Dim IndexStorm_Tel
Dim IndexStorm_Handsets
Dim IndexStorm_BusinessName
Dim IndexStorm_Email
' get posted data into variables
IndexStorm_Name = Trim(Request.Form("IndexStorm_Name"))
IndexStorm_Tel = Trim(Request.Form("IndexStorm_Tel"))
IndexStorm_Handsets = Trim(Request.Form("IndexStorm_Handsets"))
ContactUs_BusinessName = Trim(Request.Form("ContactUs_BusinessName"))
IndexStorm_Email = Trim(Request.Form("IndexStorm_Email"))
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= Trim(request.form("IndexStorm_Email"))
MyCDONTSMail.To= "sample_email@sample-mail-to-email-address.co.uk"
MyCDONTSMail.Subject="Sample Subject"
MyBody = "Hi Sample, you have received a enquiry from your website...see below:" & vbCrLf & vbCrLf
MyBody = MyBody & "Contact Name: " & Request.Form("IndexStorm_Name") & vbCrLf
MyBody = MyBody & "Telephone Number: " & Request.Form("IndexStorm_Tel") & vbCrLf
MyBody = MyBody & "Number of Handsets: " & Request.Form("IndexStorm_Handsets") & vbCrLf
MyBody = MyBody & "Business Name: " & Request.Form("IndexStorm_BusinessName") & vbCrLf
MyBody = MyBody & "Contacts Email: " & Request.Form("IndexStorm_Email") & vbCrLf
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>
I have this piece of code which I have used for a number of projects now, but I now need a piece of code that will run with Chilisoft ASP for hosting reasons... Could this piece of code be adapted? If so can anyone help or give me an example of each parts of the syntax?
Cheers
C - Silver