Home Questions to Ask Individuals Businesses Software News Clients' Area Search Contact Us Employment Newsletters Useful Links
| |
<% @ Language=VBScript %>
<% Response.Buffer = True %>
<%
dim cookiesupport
dim strfeed, cookie_exp
Dim HTML
dim formSpam
response.cookies("Sataxhelp1") = "yes"
response.cookies("Sataxhelp1").expires = (now()+1)
response.cookies("Sataxhelp1")("Expire")=(now()+1)
cookie_exp=request.cookies("Sataxhelp1")("Expire")
strfeed = request.cookies("Sataxhelp1")
if (Len(strfeed) > 0) then
cookiesupport="ON"
else
response.write ("")
cookiesupport="OFF"
end if
strfeed = request.cookies("Sataxhelp")("Yes")
cookie_exp=request.cookies("Sataxhelp")("expire")
if (Len(strfeed) > 0) then
cookie_exp=request.cookies("Sataxhelp")("expire")
response.write ("")
end if
%>
Contact Us
- Contact Person
- Herman Rall
- Telephone
- (028) 713 1068 International Callers +27
28 713 1068
- Cellular
- 083 701
8536
International Callers +27 83 701 8536
- FAX
- (028) 713 1068
International Callers +27 28 713 1068
- Postal address
- P.O. Box 240, Riversdal, 6670, South Africa
- Physical address
- 13 Heidelberg Avenua, Riversdale, Western Cape, 6670
- Electronic mail
- Please use the automated form below
- PAIA Manual
- PAIA Section 51 Manual
<%
if cookiesupport = "ON" and (Len(strfeed) = 0) then
formSpam="1"
' Retrieve values from the form fields and set as variables
formname = Request.Form("name")
formemail = Request.Form("email")
formquery = Request.Form("query")
formtel=Request.Form("telephone")
formSpam=Request.Form("spamtest")
formCCMe=request.form("CCMe")
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "Name .........: " & Request.Form("name") & " "
HTML = HTML & "Email ........: " & Request.Form("email") & " "
HTML = HTML & "Telephone.....: " & Request.Form("telephone") & " "
HTML = HTML & "IP Address....: " & Request.ServerVariables("remote_addr") & " "
HTML = HTML & "Host Address..: " & Request.ServerVariables("remote_host") & " "
HTML = HTML & " " & " "
HTML = HTML & "Message.......: " & Request.Form("query") & " "
HTML = HTML & ""
HTML = HTML & " "
HTML = HTML & ""
HTML = HTML & ""
if (formname <> "" and formemail <> "" and formquery <> "" and formtel <> "" and formspam = "8")then
Set Mail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Confi = objConfig.Fields
Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Confi("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
Confi.Update
Set Mail.Configuration = objConfig
' Set the from Name and E-Mail address using values retrieved from the form
Mail.From = formemail
' Add the e-mail recipient address
Mail.To = "herman@e-taxcalc.co.za"
if formccme="ON" then
Mail.CC = formemail
end if
' Set the subject for the e-mail
Mail.Subject = "Sataxhelp Web Message from " & ucase(formname) & " on " & (formatdatetime(date(),vbshortdate)) & " at " & (formatdatetime(now(),vbshorttime))
' Set body text for the e-mail to the Bodytxt string we built
Mail.HTMLBody = HTML
Mail.Send
' Mail is sent - tidy up and delete the message object
Set Mail = Nothing
response.cookies("Sataxhelp")("Yes") = "yes"
response.cookies("Sataxhelp").expires = (now()+1)
response.cookies("Sataxhelp")("Expire")=(now()+1)
if formccme="ON" then
response.write ("")
else
response.write ("")
end if
end if
if (formname <> "" and formemail <> "" and formquery <> "" and formtel <> "" and (formSpam <> "8" or formspam = ""))then
response.write ("")
end if
formname = ""
formemail = ""
formquery = ""
formtel=""
formSpam=""
end if
%>
| |
|