#
# MMS2WEB.COM EMBEDDED MMS GALLERY ASP SCRIPT V1.0
#
# You can host the MMS messages at mms2web.com
# and then embed them in any of your webpage.
# Copy paste this ASP code below to any of your webpages
# and the MMS messages will be displayed in that page.
# This script requires the server to have ASPtear 3rd party component installed.
# The HTML header and footer in your host options will not be displayed.

<%
Dim offset
Dim GetStr
Dim mydomain
Dim page

offset = request.QueryString("os")
page= Request.ServerVariables("PATH_INFO")
page=Right(page,len(page)-InStrRev(page,"/"))
mydomain= Request.ServerVariables("SERVER_NAME")
mydomain = replace(mydomain,"www.","")
GetStr = "http://host.mms2web.com/mms.php?domain=" & mydomain & "&os=" & offset & "&page=" & page

Const Request_POST = 1
Const Request_GET = 2
Set objTear = CreateObject("SOFTWING.ASPtear")
On Error Resume Next
Dim strRetval
strRetval = objTear.Retrieve(GetStr, Request_GET, "", "", "")
If Err.Number <> 0 Then
     Response.Write "<b>"
     If Err.Number >= 400 Then
         Response.Write "Server returned error: " & Err.Number
     Else
         Response.Write "Component/WinInet error: " & Err.Description
     End If
     Response.Write "</b>"
Response.End
End If
Response.Write strRetval
%>