<% option explicit Response.Buffer = true if session("administrator_id") <> "" then dim conn dim ssql dim rs dim objfs dim objfile dim myMBPermission set objfs = server.CreateObject("scripting.FileSystemObject") if objfs.FileExists(server.MapPath("../../../member/" & Request.QueryString("storename") & "/myMBPermission.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../member/" & Request.QueryString("storename") & "/myMBPermission.txt"),1,-1,0) myMBPermission = objfile.ReadLine objfile.close set objfile = nothing end if dim paypalPermission if objfs.FileExists(server.MapPath("../../../member/" & Request.QueryString("storename") & "/paypalPermission.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../member/" & Request.QueryString("storename") & "/paypalPermission.txt"),1,-1,0) paypalPermission = objfile.ReadLine objfile.close set objfile = nothing end if set objfs = nothing %> <% ssql = "select * from tbl_store where store_name = '" & Request.QueryString("storename") & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 %>

EDIT CLIENT
STORE NAME :	<% = ucase(rs("store_name")) %>
STORE SERIAL NUMBER :	<% = ucase(rs("store_serial_number")) %>
REGISTER DATE :	<% = rs("store_register_date") %>
RESELLER :
DOWNLOAD SECTION SIZE :	<% select case rs("download_section_size") case "5242880" Response.Write "5 MB" Response.Write "50 MB" Response.Write "100 MB" Response.Write "200 MB" Response.Write "300 MB" Response.Write "400 MB" Response.Write "500 MB" case "52428800" Response.Write "5 MB" Response.Write "50 MB" Response.Write "100 MB" Response.Write "200 MB" Response.Write "300 MB" Response.Write "400 MB" Response.Write "500 MB" case "104857600" Response.Write "5 MB" Response.Write "50 MB" Response.Write "100 MB" Response.Write "200 MB" Response.Write "300 MB" Response.Write "400 MB" Response.Write "500 MB" case "209715200" Response.Write "5 MB" Response.Write "50 MB" Response.Write "100 MB" Response.Write "200 MB" Response.Write "300 MB" Response.Write "400 MB" Response.Write "500 MB" case "314572800" Response.Write "5 MB" Response.Write "50 MB" Response.Write "100 MB" Response.Write "200 MB" Response.Write "300 MB" Response.Write "400 MB" Response.Write "500 MB" case "419430400" Response.Write "5 MB" Response.Write "50 MB" Response.Write "100 MB" Response.Write "200 MB" Response.Write "300 MB" Response.Write "400 MB" Response.Write "500 MB" case "524288000" Response.Write "5 MB" Response.Write "50 MB" Response.Write "100 MB" Response.Write "200 MB" Response.Write "300 MB" Response.Write "400 MB" Response.Write "500 MB" end select %>
VERSION INFO :	<% if rs("version_info") = "Full" then %> Full    Lite <% else %> Full    Lite <% end if %>
MONEYBOOKER :	<% if myMBPermission = "on" then %> Enable    Disable <% else %> Enable    Disable <% end if %>
PAYPAL :	<% if paypalPermission = "on" then %> Enable    Disable <% else %> Enable    Disable <% end if %>
<% if lcase(rs("store_name")) <> "valueweb" then %> ')"> <% end if %>

<% rs.Close conn.Close set rs = nothing set conn = nothing else Response.Redirect "../../index.asp" end if %>