<%@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 %>