<%
strLogged = Request.Cookies("logged")
strPartner = Request.Cookies("referer")
strDocRefer = Request.Cookies("refer")
If strLogged <> "yes" then
If strPartner <> "" then
strDocRefer = "Partner Sale"
done = writeCookie()
done2 = writeLog()
Else
If strDocRefer = "" OR strDocRefer = "BookMark" then
done = writeCookie()
Else
done = writeCookie()
done2 = writeLog()
End If
End If
End If
Function writeCookie()
Response.Cookies("logged") = "yes"
Response.Cookies("logged").Expires = now() + 365
Response.Cookies("refer") = "Previous Member"
Response.Cookies("refer").Expires = now() + 365
End Function
Function writeLog()
Dim fsObj
Dim TmpFile
Set fsObj = Server.CreateObject("Scripting.FileSystemObject")
strLogFile = "w:\pub\cookielogs\skyler_log.txt"
Set TmpFile = fsObj.OpenTextFile(strLogFile, 8, True)
TmpFile.WriteLine strDocRefer
TmpFile.Close
Set TmpFile = Nothing
Set fsObj = Nothing
End Function
%>
Skyler
Teencutie's Members area has been moved..
Click here
If you have any problems with your username and password
Send an e-mail to
webmaster@teencutie.com
Member Support
&
Cancellations