<%
Dim oItem
Dim sEmailBody
sEmailBody = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
For Each oItem In Request.Form
sEmailBody = sEmailBody & oItem & ": " & Request.Form(oItem) & vbCrLf & vbCrLf
Next
SendMail "Enquiry Form", sEmailBody, "info@grafixdesign.net", "amrit@itl.eu.com"
Response.Redirect "thankyou.asp"
End If
Function SendMail( ByVal sSubject, ByVal sBody, sFromEmail, sToEmail)
Dim objMail
SendMail = True
'Attempt to create with CDOSYS, the default for 2000 installation.
Set objMail = Server.CreateObject("CDO.Message")
'Using the CDO object excludes us from naming the email addresses.
objMail.From = sFromEmail
objMail.To = sToEmail
objMail.TextBody = sBody
objMail.Subject = sSubject
objMail.Send()
Set objMail = Nothing
End Function
%>
www.taktractors.com
Head Office:
983a Saka jojo Street, Victoria Island, Lagos
Showrooms and Service Centres in Kano, Kaduna, Abuja and Lagos
Please fill out the form below with your questions or queries and a member of staff will respond to you. Thank you
