[an error occurred while processing this directive]
<% response.buffer="true"
uid = request.cookies("UID")
fuid = request.cookies("Userid")
ucode = request.cookies("UC")
sessid = request.cookies("ccval")
If trim(fuid) = "" Then
'Response.redirect "http://allsfriends.tripod.com"
userid = uid
Else
userid = fuid
End If
function GetCurrentTimeString()
Dim sYear, sMonth, sDay, sHour, sMinute, sSecond, sTime
sTime = Year(Now())
if (Month(Now()) < 10) then
sTime = sTime & 0 & Month(Now())
else
sTime = sTime & Month(Now())
end if
if (Day(Now()) < 10) then
sTime = sTime & 0 & Day(Now())
else
sTime = sTime & Day(Now())
end if
if (Hour(Now()) < 10) then
sTime = sTime & 0 & Hour(Now())
else
sTime = sTime & Hour(Now())
end if
if (Minute(Now()) < 10) then
sTime = sTime & 0 & Minute(Now())
else
sTime = sTime & Minute(Now())
end if
if (Second(Now()) < 10) then
sTime = sTime & 0 & Second(Now())
else
sTime = sTime & Second(Now())
end if
GetCurrentTimeString = sTime
end function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function GenerateUniqueId ()
Dim sOrderid
' You can use any scheme to generate order ID you want,
' so long as:
' 1) the order ID is unique,
' 2) it is 32 characters or less, and
' 3) the following characters are not used
' : < > = + @ " % = &
' You could read order IDs from a file or a database, or generate
' one on the fly as we do here.
'
' We'll make an order ID based on date, time, and remote host ip address
sOrderid = GetCurrentTimeString()
sOrderid = sOrderid & Request.ServerVariables("REMOTE_ADDR")
sOrderid = Replace(sOrderid, ".", "")
GenerateUniqueId = sOrderid
end function
sesid =GenerateUniqueID()
'Response.Cookies("ccval") = sesid
oldcookie = request.cookies("ccval")
if oldcookie = "" then
response.cookies("ccval") = sesid
else
sesid = oldcookie
end if
function retquote(text)
retquote = replace(text,"^","'")
end function%>
Welcome to All Star's Website
