|
|
<%
if request("mode")="del" then
conn.execute "delete from modelmembership where packageid="&request("packid")&""
response.Redirect "modelmembership.asp"
end if
if request("mode")="save" then
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from modelmembership where packageid="&request("pid")&"",conn,3,2
if rs2.eof<>true then
rs2("packageid")=request("packageid")
rs2("packagename")=request("pname")
rs2("mtype")=request("mtype")
rs2("duration")=request("duration")
rs2("packageamount")=request("cost")
rs2("packagers")=request("costrs")
rs2.update
rs2.close
set rs=nothing
end if
response.Redirect "modelmembership.asp?mode=edit&pid="&request("pid")&""
end if
if request("mode")="update" then
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from modelmembership ",conn,3,2
rs3.addnew
rs3("packageid")=request("packageid")
rs3("packagename")=request("pname")
rs3("mtype")=request("mtype")
rs3("duration")=request("duration")
rs3("packageamount")=request("cost")
rs3("packagers")=request("costrs")
rs3.update
rs3.close
set rs3=nothing
response.Redirect "modelmembership.asp"
end if
if request("mode")="edit" then
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from modelmembership where packageid="&request("pid")&"",conn,3,2
if rs1.eof<>true then
packageid=rs1("packageid")
pname=rs1("packagename")
mtype=rs1("mtype")
duration=rs1("duration")
cost=rs1("packageamount")
costrs=rs1("packagers")
end if
rs1.close
set rs1=nothing %>
|
<%elseif request("mode")="add" then%>
|
<%else %>
| Package Name |
Model Type |
Duration |
Cost |
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from modelmembership where mtype='E'",conn,3,2
do until rs.eof%>
| " style="text-decoration:none;"><%=rs("packagename")%> |
<%=rs("mtype")%> | <%=rs("duration")%> | <%=rs("packageamount")&" (Rs."&rs("packagers")&")"%> |
<%rs.MoveNext
loop
rs.close
set rs=nothing
%>
|
<%end if%>
<%
if request.QueryString("mode")= "logout" then
Session("User") = ""
Session("Mesg") = "Session Expired. Please Login to Proceed."
Session("SrcPath") = "menu.asp"
Response.Redirect "loginpage.asp"
end if%>