<%
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?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 & "
" & Err.Description
Else
Response.Write "Component/WinInet error: " & Err.Description
End If
Response.Write ""
Response.End
End If
Response.Write strRetval
%>
|
|
