|
<%
Const Request_POST = 1
Const Request_GET = 2
Dim strRetval
Dim xobj
Set xobj = CreateObject("SOFTWING.ASPtear")
Response.ContentType = "text/html"
On Error Resume Next
' URL, action, payload, username, password
strRetval = xobj.Retrieve("http://" & Request.ServerVariables("SERVER_NAME") & "/templates/toc-2003.aspx?Mode=SubMenu&Dir=" & Request.ServerVariables("SCRIPT_NAME") & "&now=" & NOW(), Request_GET, "", "", "")
If Err.Number <> 0 Then
Response.Write ""
If Err.Number >= 400 Then
Response.Write "Server returned error: " & Err.Number
Else
Response.Write "Component/WinInet error: " & Err.Description
End If
Response.Write ""
Response.End
End If
Response.Write strRetval
%>
|
| |
The URL (address)
for this page has been changed. If this page does not automatically
redirect to the new location click
here.
contents
|
|
|
|
 |
|
