<%@ Language="VBScript"%>
<%response.expires = -1
response.AddHeader "Pragma", "no-cache"
response.AddHeader "cache-control", "no-store"%>
[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%
If Request("OrderId")<>"" Then
Session("OrderId")=Request("OrderId")
Session("Userid")=Request("Userid")
session("UserType")=Request("userType")
session("blnValidUser")=Request("blnValidUser")
Session.TimeOut=60
End If%>
Blueolivegifts
<%Dim rsUser,strSql
Dim mypage, numpages, numrecs, pagesize
Set rsUser=Server.CreateObject("ADODB.RECORDSET")
If Session("UserID") = "" then
response.redirect "../index.htm"
End if
strSql="Select * From tblUser where UserID="&Session("UserID")&";"
If Request("page") <> "" then
mypage = CInt(Request("page"))
End if
If mypage="" Then mypage=1
pagesize = 20
rsUser.PageSize = pagesize
rsUser.CacheSize = pagesize
rsUser.CursorLocation = 3
rsUser.Open strSql,objConn,2,2
If not rsUser.Eof then
strAdd2=rsUser("Address2")
If not IsNULL(strAdd2) then
strAdd2=Server.HTMLEncode(trim(strAdd2))
Else
strAdd2=""
End if%>
<%Else%>
<%End if%>
