%
Dim strInvNum
if request("Mode")="newreg" or request("Mode")="changemembership" then
if Session("UserID") <> "" then
if session("packageradioopt") <> "" then
set rs= server.CreateObject("Adodb.recordset")
rs.open "select * from tbl_user where User_ID_PK="& Session("UserID"),Cn,3,2
if rs.eof <> true then
PackageCost =Cn.execute("select PackageCost from Tbl_Packages where Package_ID_PK=" & session("packageradioopt")&"")(0)
packagename=Cn.execute("select PackageName from Tbl_Packages where Package_ID_PK=" & session("packageradioopt")&"")(0)
end if
else
set rs= server.CreateObject("Adodb.recordset")
rs.open "select * from tbl_user where User_ID_PK="& Session("UserID"),Cn,3,2
if rs.eof <> true then
PackageCost =Cn.execute("select PackageCost from Tbl_Packages where Package_ID_PK=" &Rs("Package_ID_FK")&"")(0)
packagename=Cn.execute("select PackageName from Tbl_Packages where Package_ID_PK=" & Rs("Package_ID_FK")&"")(0)
end if
end if
end if
end if
%>
Matrimonials, Indian Matrimonial - findyourfate.com marriage website
<%if session("username")<>"" then popup()%>
"" then response.write "init();"%>">