McPherson Media

<% Option Explicit %> <% ' Declare variables Dim strName Dim strEmail Dim strNumber Dim strTime Dim strHost Dim action Dim b_hide_contact Dim b_hide_sendquery Dim strTXT Dim Mail Dim rsSites Dim SQL '// Recordset to display popular sites SQL = "SELECT * FROM PopularSites" 'Response.write SQL on error resume next set rsSites = oConn.Execute(SQL) If err.number <> 0 then b_error = true error_list.add "db_select_links" & err.Number ,"The database select failed. " & err.Description elseIf rsSites.EOF then ' No Sites to display error_list.add "NoSites", "There are no Popular Sites to display." b_error = true end if on error goto 0 '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' Sub to validate user filled out required fields '::::::::::::::::::::::::::::::::::::::::::::::::::::: sub ValidateQuery ' Request and validate data entered from this form strName = trim(request("txtName")) if strName = "" then error_list.add "586343","Please enter your name." b_error = true end if strEmail = trim(request("txtEmail")) if strEmail = "" then error_list.add "586349","Please enter an email address." b_error = true end if strNumber = trim(request("txtcontact_number")) if strNumber = "" then error_list.add "586344","Please enter a contact number." b_error = true end if strTime = trim(request("txttime")) if strTime = "" then error_list.add "586347","Please enter a suitable time to call you." b_error = true end if end sub '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' Sub to send query if no errors '::::::::::::::::::::::::::::::::::::::::::::::::::::: sub sendquery if b_error = false then b_hide_contact = True End if b_hide_sendquery = False strHost = "mail.mcmedia.com.au" strTXT = ""& vbCrLf strTXT = strTXT & ""& vbCrLf strTXT = strTXT & ""& vbCrLf strTXT = strTXT & ""& vbCrLf strTXT = strTXT & ""& vbCrLf strTXT = strTXT & "

This email was sent at: " & Time() & vbCrLf strTXT = strTXT & "
" & FormatDateTime(Date,1)& vbCrLf strTXT = strTXT & "

"& vbCrLf strTXT = strTXT & ""& vbCrLf strTXT = strTXT & " The below contents have been sent to you from McPherson Media Website
"& vbCrLf strTXT = strTXT & "

"& vbCrLf strTXT = strTXT & "

A request has been made to sign-up for broadband.

"& vbCrLf strTXT = strTXT & "

Name: " & "" & Trim(cStr(Request("txtName"))) & Chr(13) & Chr(10)& vbCrLf strTXT = strTXT & "

"& vbCrLf strTXT = strTXT & "

Address: " & "" & Trim(cStr(Request("txtAddress"))) & Chr(13) & Chr(10)& vbCrLf strTXT = strTXT & "

"& vbCrLf strTXT = strTXT & "

Contact Number: " & "" & Trim(cStr(Request("txtcontact_number"))) & Chr(13) & Chr(10)& vbCrLf strTXT = strTXT & "

"& vbCrLf strTXT = strTXT & "

Best time to call: " & "" & Trim(cStr(Request("txttime"))) & Chr(13) & Chr(10)& vbCrLf strTXT = strTXT & "

"& vbCrLf strTXT = strTXT & "

  Additional Information about the sender of this email
"& vbCrLf strTXT = strTXT & "  Senders IP Address: " & "" & Request.ServerVariables("REMOTE_ADDR") & Chr(13) & Chr(10)& vbCrLf strTXT = strTXT & "
"& vbCrLf strTXT = strTXT & "  Senders Browser: " & "" & Request.ServerVariables("HTTP_USER_AGENT") & Chr(13) & Chr(10)& vbCrLf strTXT = strTXT & "

"& vbCrLf strTXT = strTXT & " This email was sent automatically from http://www.mcmedia.com.au

" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.From = Request.Form("txtEmail") Mail.FromName = Request.Form("txtName") Mail.AddAddress "sales@mcmedia.com.au","Request to signup for broadband" Mail.Subject = "Request to signup for broadband" Mail.IsHTML = True Mail.Body = "" & strTXT & "" Mail.Send end sub '::::::::::::::::::::::::::::::::::::::::::::::::::::: ' Request action '::::::::::::::::::::::::::::::::::::::::::::::::::::: action = lcase(request("action")) select case action case "sendquery" ' Call sub to validate all fields have been filled out ValidateQuery If Not b_error then sendquery End select %> McPherson Media