% @Language = VBScript %>
<% Option Explicit %>
<%
Dim strServerURL 'Local Web Server Name including http://protocol
Dim strTargetURL 'Dierectory where we will upload our file to
'Dim strServerPath
'Use ASP Server Variables to retrieve the name of our Web Server
strServerURL = "http://" + Request.ServerVariables("SERVER_NAME")
strTargetURL = strServerURL & "/simoquaweb/"
'strServerPath = Server.MapPath(".")
Response.Write strServerURL & "-----" & strServerPath & "+++++" & strTargetURL & "*****" & " "
%>