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

(McMedia Addresses Only)






<% ' Loop to display all popular sites Do until rsSites.EOF %> " target="_blank"><%=rsSites("SiteName")%>
<% rsSites.MoveNext Loop %>

  McPherson Media Broadband

Wireless | ADSL

No matter where you live, McPherson Media have a solution for you!
  • Always on-line
  • No dial-up charges
  • Use your phone and Internet at the same time
  • FREE dial-up account included

Call us now on 1300 735 868!

  • Prices for McPherson Media broadband technologies begin from $29.95 per month.
  • Not all services are available to all people depending on where they live.
  • Plus installation and setup fees.
  • Ask us about any current promotions we might have running.
Terms & Conditions | Privacy Statement | Acceptable Usage Policy