National Achiever   Edit Prices | LogOut
<% Set Conexion = Server.CreateObject("ADODB.Connection") Conexion.Open MM_achiever_STRING if request.form("id1") <> "" then SQL = "Update customers_customize Set status = '"& Request.form("status") &"', comments = '"& Request.form("comments") & "' " sql = sql + "WHERE id= "& request.form("id1") &" " Set upd=conexion.Execute (sql) Set upd= nothing msg = "ID " & request.form("id1") & " update" end if if request.form("id2") <> "" then SQL = "Update customers_school Set status = '"& Request.form("status") &"', comments = '"& Request.form("comments") & "' " sql = sql + "WHERE id= "& request.form("id2") &" " Set upd=conexion.Execute (sql) Set upd= nothing msg = "ID " & request.form("id2") & " update" end if sql="Select id, studentname, address, city, state, zip, phone, email, school, status, comments from customers_customize" Set rs=conexion.Execute (sql) sql="Select id, studentname, address, city, state, zip, phone, email, school, status, comments from customers_school" Set rs2=conexion.Execute (sql) %>

<%=msg%>

<%while NOT rs.EOF%> "> <%rs.MoveNext wend rs.close Set rs = Nothing %> <%while NOT rs2.EOF%> "> <%rs2.MoveNext wend rs2.close Set rs2 = Nothing %>
ID Name Address City State Zip Phone Email School
<%=rs("id")%> <%=rs("studentname")%> <%=rs("address")%> <%=rs("city")%> <%=rs("state")%> <%=rs("zip")%> <%=rs("phone")%> <%=rs("email")%> <%=rs("school")%>

">[Delete] " onclick="NewWindow(this.href,'info','450','450','yes');return false">[+ info]
Status:
 Comments:
 
<%=rs2("id")%> <%=rs2("studentname")%> <%=rs2("address")%> <%=rs2("city")%> <%=rs2("state")%> <%=rs2("zip")%> <%=rs2("phone")%> <%=rs2("email")%> <%=rs2("school")%>

">[Delete] " onclick="NewWindow(this.href,'info','450','450','yes');return false">[+ info]
Status:
 Comments: