<%
Response.Buffer = true
id1 = Request.QueryString("id")
ser_call=Request.QueryString("ser_call")
cardnum=session("cno")
select case ser_call
case "pcards"
select case id1
case "1"
id11=1
end select
case "ecards"
select case id1
case "1"
id11=1
end select
case "gcontest"
select case id1
case "1"
id11=1
end select
end select
if ser_call="abook" then
if Request.QueryString("cno")<>"" then
session("num_card")=Request.QueryString("cno")
end if
end if
If session("is_member")= 1 then
SELECT CASE ser_call
case "generatepg"
path=session("ref")
Response.Redirect(path)
case "pcards" Response.Redirect("../pcards.asp?id="&id11)
case "ecards" Response.Redirect("../first.asp?id="&id11)
case "gcontest" Response.Redirect("../flashgame/main.asp?id="&id11)
CASE "abook" Response.Redirect("../abook/abook.asp")
case "referral" Response.Redirect("../register/referral.asp")
case "pcontest" Response.Redirect("../poetry_contest/entry.asp")
case "friendship" Response.Redirect("../friendship/matchinterest.asp")
case "unreg" Response.Redirect("unreg.asp")
case "screens" Response.Redirect("../screensavers/screen.asp")
case "wallp" Response.Redirect("../wallpapers/wall.html")
case "webking" Response.Redirect("../flashgame/webking.asp")
case "jigsaw" Response.Redirect("../flashgame/jigsaw.asp")
end select
else
usrid=trim(Request.Form("usrid"))
pswd=trim(Request.Form("pswd"))
if not usrid="" and not pswd="" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "filedsn=c:\inetpub\orangepie\dsn\sqldb.dsn","orangepie","orangepie"
'Conn.open "filedsn=c:\inetpub\orangepie\dsn\sqldb.dsn","orangepie","orpie99"
sql="Select * from member where UsrId='"&usrid&"'"
Set recset= Server.CreateObject("ADODB.Recordset")
recset.Open sql,Conn,adOpenKeyset,adLockPessimistic
if recset.EOF then
Response.Redirect("regthnk.asp?result=register&usrid="&usrid)
end if
if trim(recset("Pswd"))=pswd then
session("is_member")=1
session("Usrid") = usrid
fullname=recset("Name")
part_name=split(fullname," ")
Session("from_name")=part_name(0)
Session("from_mail")=recset("Email")
SELECT CASE ser_call
case "gcontest" Response.Redirect("./login.asp?ser_call=gcontest&id=1")
case "generatepg"
path=session("ref")
Response.Redirect(path)
CASE "abook" Response.Redirect("../abook/abook.asp")
case "referral" Response.Redirect("../register/referral.asp")
case "pcontest" Response.Redirect("../poetry_contest/entry.asp")
case "friendship" Response.Redirect("../friendship/matchinterest.asp")
case "unreg" Response.Redirect("unreg.asp")
case "screens" Response.Redirect("../screensavers/screen.asp")
case "wallp" Response.Redirect("../wallpapers/wall.html")
case "webking" Response.Redirect("../flashgame/webking.asp")
case "jigsaw" Response.Redirect("../flashgame/jigsaw.asp")
end select
else
Response.Redirect("regthnk.asp?result=password&usrid="&usrid)
end if
set recset=nothing
conn.Close
set conn=nothing
else
%>
Orangepie Login
