<%@Language="VBScript"%>
<% Option Explicit %>
<%
Dim objTemplate, objRegex, objMailer, objConn, objRs, strQuery, banner
Dim valName, valEmail, valPhone, valAddress, valMessage
Dim errCount, errName, errEmail, errMessage, htmlMail, message
Dim activeMenu
Set objTemplate = New Template
objTemplate.LoadTemplate Server.MapPath("templates/header.htm")
activeMenu = "||menu2||||||active"
objTemplate.SetContent "activeMenu", activeMenu
objTemplate.OutputPage
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnect
banner = "shim.gif"
strQuery = "SELECT pic FROM Banners WHERE id = 1"
objRs.Open strQuery, objConn
If Not objRs.BOF And Not objRs.EOF Then
If Len(FromDB(objRs("pic"))) > 0 Then
banner = FromDB(objRs("pic"))
End If
End If
objConn.Close
Set objRs = Nothing
Set objConn = Nothing
objTemplate.LoadTemplate Server.MapPath("templates/splash-default.htm")
objTemplate.SetContent "banner", banner
objTemplate.OutputPage
objTemplate.LoadTemplate Server.MapPath("templates/lefter.htm")
objTemplate.OutputPage
objTemplate.LoadTemplate Server.MapPath("templates/contact.htm")
If Len(Trim(Request.Form("submit"))) > 0 Then
valName = Trim(Request.Form("name"))
valEmail = Trim(Request.Form("email"))
valPhone = Trim(Request.Form("phone"))
valAddress = Trim(Request.Form("address"))
valMessage = Trim(Request.Form("message"))
errCount = 0
If Len(valName) = 0 Then
errCount = errCount + 1
errName = "Please fill in your name."
End If
If Len(valEmail) = 0 Then
errCount = errCount + 1
errEmail = "Please fill in your email address."
Else
Set objRegex = Server.CreateObject("VBScript.RegExp")
objRegex.Pattern = "^([a-z0-9_]|-|\.)+@(([a-z0-9_]|-)+\.)+[a-z]{2,4}$"
If Not objRegex.Test(valEmail) Then
errCount = errCount + 1
errEmail = "Please fill in a valid email address."
End If
Set objRegex = Nothing
End If
If Len(valMessage) = 0 Then
errCount = errCount + 1
errMessage = "Please fill in your message."
End If
If errCount = 0 Then
htmlMail = _
"" & _
"" & _
"| Message | " & _
"
" & _
"" & _
"| Name* | " & _
"" & valName & " | " & _
"
" & _
"" & _
"| Email* | " & _
"" & valEmail & " | " & _
"
" & _
"" & _
"| Phone | " & _
"" & valPhone & " | " & _
"
" & _
"" & _
"| Address | " & _
"" & valAddress & " | " & _
"
" & _
"" & _
"| Message* | " & _
"" & valMessage & " | " & _
"
" & _
"
"
Set objMailer = Server.CreateObject("CDONTS.NewMail")
objMailer.MailFormat = 0
objMailer.BodyFormat = 0
objMailer.To = "info@autotara.com"
'objMailer.To = "wiras_adi@yahoo.com"
objMailer.From = "visitor@autotara.com"
objMailer.Subject = "Message from " & valName & " <" & valEmail & ">"
objMailer.Body = htmlMail
objMailer.Send
Set objMailer = Nothing
message = "Thank you " & valName & ", your message has been sent."
Else
message = "Sorry " & valName & ", there were " & errCount & " error(s) with the form.
Please check below."
End If
objTemplate.SetContent "valName", valName
objTemplate.SetContent "valEmail", valEmail
objTemplate.SetContent "valPhone", valPhone
objTemplate.SetContent "valAddress", valAddress
objTemplate.SetContent "valMessage", valMessage
objTemplate.SetContent "errName", errName
objTemplate.SetContent "errEmail", errEmail
objTemplate.SetContent "errMessage", errMessage
objTemplate.SetContent "message", message
End If
objTemplate.OutputPage
objTemplate.LoadTemplate Server.MapPath("templates/footer.htm")
Dim objFSO, objCountFile
Dim strCountFileName
Dim iCount
Dim I
strCountFileName = Server.MapPath("default.asp.cnt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 0
End If
objCountFile.Close
Set objCountFile = Nothing
if(Session("counter")<>true) then
iCount = iCount + 1
Session("counter")=true
end if
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
objTemplate.SetContent "iCount", iCount
objTemplate.OutputPage
Set objTemplate = Nothing
%>