%@ Language=VBScript %>
<%
Thispage = Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
'if instr(thispage, "www") = 0 then
redirpage = "http://www.us-immigration-law-firm.com"
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", redirpage
'end if
%>
<%
dim dbconn
set dbconn=server.createobject("adodb.connection")
dbconn.open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\hosting\fmwangi\access_db\pp.mdb"
%>
<%
id = request("id")
if id = "" then
response.Redirect("/default.asp")
end if
set rs = server.CreateObject("adodb.recordset")
rs.open "select * from _pages where id = " & id, dbconn,3,1
if not rs.eof then
content = rs("pagecontent")
title = rs("pagetitle")
pagetitle = title
pagedescription = rs("pagedescription")
pagekeywords = rs("pagekeywords")
else
rs.close()
set rs = nothing
dbconn.close()
set dbconn = nothing
response.Redirect("/default.asp")
end if
rs.close()
set rs = nothing
%>