Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Call with this: nList = "@schoolID," vList = "1," ar = get_Records("ps_selectSchool", nList, vList, 50, set_CONXStrng() ) if isnull(ar) then response.Write "yeP" for x = 0 to ubound(ar,2) response.Write ar(0,x) & " " & ar(1,x) & "<br>" next function here: public function get_Records( proc_name, nList, vList, pSize, strconn ) dim objcmd dim objrs dim objparam dim n, v, r dim theName, theValue set objcmd = server.CreateObject("ADODB.command") with objcmd .activeconnection = strconn .commandtext = proc_name .commandtype = adcmdstoredproc 'add paramaters if exist if Len(nList) > 0 then n = split(nList,",") v = split(vList,",") for x = 0 to ubound(n) theName = n(x) theValue = v(x) if len(theName) > 1 then 'response.Write n(x) & " " & v(x) & "<br>" set objparam = .createparameter objparam.name = n(x) objparam.Type = adBoolean objparam.Direction = adParamInput objparam.size = pSize objparam.Value = v(x) .Parameters.Append objparam end if next end if 'execute the recordset 'set objrs = server.CreateObject("ADODB.recordset") set objrs = objcmd.execute() if objrs.bof = false AND objrs.eof = false then r = objrs.getrows else r = null end if set strconn = NOTHING set objrs = NOTHING set objcmd = NOTHING get_Records = r end with end function Query Here: SELECT tblSchool.schoolID, tblSchool.schoolName FROM tblSchool WHERE (((tblSchool.schoolID)=[@schoolid]));
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.