<% 'Set RegX = NEW RegExp 'SearchPattern = "http://([^/]*)/.*" 'RegX.Pattern = SearchPattern 'RegX.Global = True 'referer = RegX.Replace(Request.ServerVariables("HTTP_REFERER"), "$1") 'referer = "http://www.travelonline.co.nz/m.php?t=" & Request.Form("referer") linkurl = Request.Form("referer") If InStr(1, linkurl, "html") > 0 Then new_urla = Replace (linkurl, ".nz/",".nz/g.php?t=") new_urlb = Replace (new_urla, ".html","") referer = Replace (new_urlb, ".htm","") Else new_urla = Replace (linkurl, ".nz/",".nz/h.php?t=") referer = Replace (new_urla, ".htm","") End If %> <% If Request.Form("send") <> "" Then If Request.Form("emailfriend") = "" Then Response.Write "You did not enter an email to whom this message must be sent
" errcount = 1 End If If Request.Form("youremail") = "" Then Response.Write "You didn't enter your own email
" errcount = 1 End If If Request.Form("namefriend") = "" Then Response.Write "You didn't enter a name from a friend
" errcount = 1 End If If Request.Form("yourname") = "" Then Response.Write "You didn't enter your name
" errcount = 1 End If If errcount > 0 Then Response.Write "Back" Else Set SendMail = Server.CreateObject("CDONTS.NewMail") SendMail.From = Request.Form("youremail") SendMail.To = Request.Form("emailfriend") SendMail.Bcc = "will.siau@btinz.com" SendMail.Subject = Request.Form("yourname") & " has sent you a message from www.travelonline.co.nz" SendMail.Body = "Hey " & Request.Form("namefriend") & ", " & chr(10) & "" & "I've just seen this great deal on Travel Online's website that I thought you might be interested in. Click on this link and it will take you right to the page." & chr(10) & chr(10) & "" & referer & chr(10) & chr(10) & Request.Form("comments") & "" & chr(10) & chr(10) & "Greetings" & chr(10) & "" & Request.Form("yourname") SendMail.Send Set SendMail = Nothing Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open = provider SQL_query = "INSERT INTO tol_maf (url) VALUES ('" & Request.Form("referer") & "');" Conn.Execute(SQL_query) Conn.Close Set Conn = Nothing %> Thank You

Thank You



Your message has been sent
Close Window <% End If %> <% Else %> Mail A friend
"> <% ref = Request.ServerVariables("HTTP_REFERER") %>
To share this page
(<% =Request.ServerVariables("HTTP_REFERER") %>)
with a friend, simply fill out the name and e-mail address fields below, add additional comments if you wish, then click Send.
Friend's name
Friend's e-mail address
Your name

Your e-mail address
  

    Comments (optional)
Please note that the names and e-mail addresses you provide here will only be used to let the recipient know who sent the message. Travel Online does not collect or make use of this information for any other purposes!
Close Window
<% End If %>