Return to Snippet

Revision: 1533
at October 17, 2006 12:12 by jgmutza


Updated Code
dim xml, rrs
set xml = new XmlAspConfig
if xml is Nothing then
  call errors.Error("Error", "Cannot create XmlAspConfig.")
else
  call xml.Bind(Server.MapPath("IODefinition_asp.xml"))
  if xml.Document is Nothing then
    call errors.Error("Error", xml.ErrorMessage)
  end if
end if
...
dim StationName, Port
...
dim xrs
set xrs = xml.GetResultSet("deviceio-station-port-select", Array(StationName, Port))

Revision: 1532
at October 17, 2006 11:55 by jgmutza


Initial Code
dim xml, rrs
set xml = new XmlAspConfig
if xml is Nothing then
call errors.Error("Error", "Cannot create XmlAspConfig.")
else
call xml.Bind(Server.MapPath("IODefinition_asp.xml"))
if xml.Document is Nothing then
call errors.Error("Error", xml.ErrorMessage)
end if
end if
...
dim StationName, Port
...
dim xrs
set xrs = xml.GetResultSet("deviceio-station-port-select", Array(StationName, Port))

Initial URL

                                

Initial Description
A reusable implementation is a must-have.

Initial Title
Using Externalized SQL

Initial Tags

                                

Initial Language
ASP