<%
Function WriteURL
' Alla URLar börjar med "http://"
WriteURL = "http://"
' Under vilken server ligger sidan Ex: www.pellesoft.nu
WriteURL = WriteURL & Request.ServerVariables("HTTP_HOST")
' Vad heter filen och i vilken map ligger den Ex: /forum/visainlagg.asp
WriteURL = WriteURL & Request.ServerVariables("SCRIPT_NAME")
' Är det några QueryStrings med? Skriv i så med dem också
If Request.QueryString <> "" Then
WriteURL = WriteURL & "?" & Request.QueryString
End If
End Function
%>
För att anropa funktionen skriver vi: <%=WriteURL%>.