% 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.pdredirect 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 %>
| CONTACT US / E MAIL / ABOUT US |
![]() |
![]() |
|
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
|
|
|||||||||||||||||||||||