|
<%
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
%>
|
| |
Bogie
Bogie was a Landseer Newfoundland that was an
outstanding family pet. Being large makes the Newfoundland
very confident, relaxed and lovable. He is missed terribly by
family and friends. We will continue to have Newfoundlands as
our family pets.
|
|
|
|
 |
|
