Denne kode henter alle brugerens favoriter, og ligger dem i en session som derefter bliver vist for brugeren. Første gang scriptet køres kan det tage lidt tid.
<%
Function BinaryToString(Binary)
Dim I, S
For I = 1 To LenB(Binary)
S = S & Chr(AscB(MidB(Binary, I, 1)))
Next
BinaryToString = S
End Function
If ucase(Request.ServerVariables("HTTP_User_Agent")) = "POSTFAVORITES" Then
dim ByteArray
'Read the favorites
ByteArray = request.binaryread(request.servervariables("HTTP_Content_Length"))
'Store the favorites In session
session("Favorites") = BinaryToString(ByteArray)
session("http") = request.servervariables("ALL_RAW")
end if
dim URL
const Message = "Klik her for at se dine favoriter (Dette kan tage lidt tid første gang)"
URL = Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
Response.Write " <a href=""javascript:{external.ImportExportFavorites(0,document.location.href);window.location.reload();}"">"&Message&"</a>"
If session("Favorites")<>"" Then Response.Write " - Dine favoriter"
If session("Favorites")<>"" Then
Response.Write "<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 Cols=1 bgcolor=gainsboro><tr bgcolor=beige><th>"
Response.Write "This is your favorites/bookmarks : "
Response.Write "</th></tr><tr><td>"
Response.Write session("Favorites")
Response.Write "</td></tr></TABLE>"
Response.Write "</th></tr><tr><td>"
Response.Write "<pre>http header : " & vbCrLf & session("http") & "</pre>"
Response.Write "</td></tr></TABLE>"
end if
%>