<%
Dim RSRedirect
Set RSRedirect = Server.CreateObject("ADODB.Recordset")
RSRedirect.ActiveConnection = "driver={MySQL ODBC 3.51 Driver};option=16387;server=77.68.57.20;user=planetredirect;password=skeletor;DATABASE=planetres;"
RSRedirect.Source = "SELECT urlto FROM planetres.pkredirect WHERE urlfrom = '" + Mid(Request.ServerVariables("PATH_INFO"),2) + "'"
RSRedirect.Open()
If NOT RSRedirect.EOF THEN
Response.Status = "301 Moved Permanently"
Response.AddHeader "Location", RSRedirect.Fields.Item("urlto").Value
Response.End
END IF
RSRedirect.close
%>
KITESURFING HOLIDAYS TO MOROCCO
DETAILS ON THIS EXCITING NEW DESTINATION COMING SHORTLY. PLEASE CHECK BACK AT THE END OF FEBRUARY FOR A FULL UPDATE.
