<
%
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase (Request.ServerVariables( " HTTPS " )) = " off " Then
strTemp = " http:// "
Else
strTemp = " https:// "
End If
strTemp = strTemp & Request.ServerVariables( " SERVER_NAME " )
If Request.ServerVariables( " SERVER_PORT " ) <> 80 Then
strTemp = strTemp & " : " & Request.ServerVariables( " SERVER_PORT " )
end if
strTemp = strTemp & Request.ServerVariables( " URL " )
If Trim (Request.QueryString) <> "" Then
strTemp = strTemp & " ? " & Trim (Request.QueryString)
end if
GetUrl = strTemp
End Function
response.write " from: " & geturl()
response.end()
% >
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase (Request.ServerVariables( " HTTPS " )) = " off " Then
strTemp = " http:// "
Else
strTemp = " https:// "
End If
strTemp = strTemp & Request.ServerVariables( " SERVER_NAME " )
If Request.ServerVariables( " SERVER_PORT " ) <> 80 Then
strTemp = strTemp & " : " & Request.ServerVariables( " SERVER_PORT " )
end if
strTemp = strTemp & Request.ServerVariables( " URL " )
If Trim (Request.QueryString) <> "" Then
strTemp = strTemp & " ? " & Trim (Request.QueryString)
end if
GetUrl = strTemp
End Function
response.write " from: " & geturl()
response.end()
% >
Request.ServerVariables("HTTP_REFERER")