<%
Dim txtQueryString
Rem -- Here all the GET elements are picked up and put in a string value.
Function GetAllGetElements()
Dim Item, i
txtQueryString = ""
If Request.QueryString.Count > 0 Then
For Each Item In Request.QueryString
For i = 1 To Request.QueryString(Item).Count
txtQueryString = txtQueryString & Item & "=" & server.URLEncode(Request.QueryString(Item)(i)) & "&"
Next
Next
txtQueryString = Left(txtQueryString, Len(txtQueryString) - 1)
End If
End Function
Rem -- Here all the POST elements are picked up written as hidden fields.
Function GetAllPostElements()
Dim Item, i
If Request.Form.Count > 0 Then
For Each Item In Request.form
For i = 1 To Request.form(Item).Count
%><%
Next
Next
End If
End Function
%>
TCC Scandinavia uppdaterar...
VIKTIG INFORMATION!
Vi gör en ompekning av vår domäner och subdomäner.
<%
Rem -- Build information
Rem -- Product Name: ExpandIT Internet Shop
Rem -- Product Version: 2.0
Rem -- Page Name: closed.asp
Rem -- Company Name: ExpandIT Solutions a/s
Rem -- Copyright: 1998-2004, (c) ExpandIT Solutions a/s
Rem -- Filestamp: 10-12-2004 11:10:17 - 4f958ff054e5e7f1ee0779e572ed3957
Rem -- Source Version: 10
Rem -- Build Version: 76
Rem -- Web HotFix Pack 1
%>
