<% ' ====================================================================================== ' PAGES OBJECT ' ====================================================================================== ' Programmer: R. Smit ' Date Modified: 2011/08/22 ' Version 1.00 ' Inherits: class.base.asp, class.db.asp ' Skin Files: skin.page.asp ' Comments: ' ====================================================================================== Class O_pages Private oConn Public oBase Public iID Sub Class_Initialize() Set oBase = Base End Sub Function Connect(sConn,ID) Set oConn = sConn iID = ID End Function Function default(iID) sFile = oBase.LoadSkinView("home",0) Response.Write(sFile) End Function Function view(iID) sFile = "" 'sQ = oDB.ExecuteQuery(oConn,"SELECT page_name, page_content FROM pages WHERE id = " & iID & " AND page_active = 1") ' If IsArray(sQ) Then ' sFile = sFile & oBase.LoadView("pages","page",0) ' For i = 0 to uBound(sQ,2) ' sFile = Replace(sFile,"[TITLE]",sQ(0,i)) ' sFile = Replace(sFile,"[CONTENT]",sQ(1,i)) ' Next ' End If Response.Write(sFile) End Function Function load(nID) sFile = oBase.LoadPageView(iID,0) Response.Write(sFile) End Function Function SubmitEnquiries(nID) If Request.Form("spam") = "blue" Then blnCAPTCHAcodeCorrect = true Else blnCAPTCHAcodeCorrect = false End If If blnCAPTCHAcodeCorrect Then Response.Write("Correct Image validation Entered... Sending Enquiry

") 'Setup our mailbody Dim MailBody MailBody = "" ' Change name of company below MailBody = MailBody & "Web enquiry for "&C_COMPANY_NAME&"

" MailBody = MailBody & "The following entries were made at the "&C_COMPANY_NAME&" website at: " & Now() & "

" MailBody = MailBody & "Name: " & Request.Form("name") & "
" MailBody = MailBody & "Surname: " & Request.Form("surname") & "
" MailBody = MailBody & "Email: " & Request.Form("email") & "
" MailBody = MailBody & "Tel Number: " & Request.Form("tel") & "

" MailBody = MailBody & "Comments: " & Request.Form("comments") & "
" MailBody = MailBody & "" 'ServerObjects AspMail Component Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Request.Form("name") Mailer.FromAddress= Request.form("email") Mailer.RemoteHost = "196.44.34.162" For i = 0 to uBound(C_ENQUIRY_EMAILS,2) Mailer.AddRecipient C_ENQUIRY_EMAILS(0,i), C_ENQUIRY_EMAILS(1,i) Next Mailer.Subject = C_COMPANY_NAME & " Enquiry" Mailer.ContentType = "text/html" Mailer.BodyText = MailBody if not Mailer.SendMail then Response.Write("") else Response.Write("") end if set Mailer=nothing Else Response.Write("") End If End Function Function CaptchaForm %><% sReturn = "" '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** sReturn = (vbCrLf & vbCrLf & "") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** sReturn = sReturn & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & "" & _ vbCrLf & " " & _ vbCrLf & "" & _ vbCrLf & "" '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnCAPTCHAabout Then 'Response.Write("") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** sReturn = sReturn & "
To prevent web form hacking, please type the digits and letters you see in the image to the right, into the text field under the image.
Note that letters are case-sensitive.		 " & _ vbCrLf & "
" & _ vbCrLf & "

"&strTxtLoadNewCode&"

Powered by Web Wiz CAPTCHA version " & strCAPTCHAversion & "
Copyright ©2005-2006 Web Wiz Guide
" CaptchaForm = sReturn End Function End Class %>