Bank Repossessions
Bank Repossession »
|
<%
content = Trim(Request("content"))
if ( (Len(content)>0) AND (IsNumeric(content)) ) then
content = CInt(content)
else
content = 2 'Por defecto comienza por la página search
end if
query = createUniformQuery(Request.Form,Request.QueryString)
select case (content)
case 1
urlServer = "search.asp"
case 2
urlServer = "searchadv.asp"
case 3
urlServer = "shortlist.asp"
%>
<%
case 4
urlServer = "shortlistadv.asp"
case 5
urlServer = "details.asp"
case 6
urlServer = "enquiry.asp"
case 7
urlServer = "enquiry_process.asp"
case 8
urlServer = "moreinf.asp"
case 9
urlServer = "moreinfthanks.asp"
case 10
%>
<%
urlServer = "enquiry-add.asp"
case 11
urlServer = "noEnquiries.asp"
case 12
%>
<%
urlServer = "enquiry-add.asp"
case 13
'Elimina la referencia y muestra las propiedades marcadas hilite
'Muestra un listado con las propiedades hilite después del borrado
%>
<%
urlServer = "enquiry-add.asp"
case 14
urlServer = "submit-enquiries.asp"
case 15
urlServer = "submit-enquiries-process.asp"
case 16
urlServer = "thanks.asp"
case 17
urlServer = "letussearchforyou.asp"
case 18
urlServer = "letussearchforyou-process.asp"
case else
urlServer = "search.asp"
end select
Response.flush()
urlServer = urlSearchEngine & urlServer
'Response.Write urlServer & "?" & query
'Response.end
pageContent = getPageContent(urlServer,query,QUERY_METHOD)
Response.Write pageContent
Response.flush()
%>
|
Return to previous page
Top to page |
|
|
|
|
|
