<!---- #Include file="JSON_2.0.2.asp" --->
<!---- #include file="JSON_UTIL_0.1.1.asp" ---->
<%
Dim member
Set member = jsObject()
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="DSN=sql.dsn;database=db24;UID=reader;PWD=k34ghh65hnsh5463"
conn.Open
jmode = request.Form("jmode")
load_mode = request.QueryString("profile_id")
if jmode = "add" then
elseif jmode = "edit" then
elseif jmode = "delete" then
else
'load it
pStr = "private, no-cache, must-revalidate"
Response.ExpiresAbsolute = #2000-01-01#
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", pStr
response.Write "{identifier: 'id', label: 'id', items: "
QueryToJSON(conn, "select id, type_code, f_id, name, address_l1, address_l2, city, state, o_officer, phone_number, description, amount from dbo.PRIMARY_Non").flush
response.Write "}"
end if
conn.Close
%>
|