<%@ Language=VBScript %>
<%
Sub AddData (sData, ByRef sList)
sList = sList & sData
End Sub
Function iif(Expr, TruePart, FalsePart)
iif = FalsePart
If Expr Then iif = TruePart
End Function
Sub AddOption (iData, sCaption, bSelected, ByRef sOptList)
sOptList = sOptList & ""
End Sub
Dim DataConn, RS, sSQL
Set DataConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
DataConn.Open "DSN=Hosts", "Clients", "NNClient"
sSQL = "SELECT DISTINCT NumLegs FROM CCPC_Bugs Order By NumLegs"
AddOption -1, "Don't Know", false, sLegOptions
RS.Open sSQL, DataConn
While not RS.EOF
AddOption RS("NumLegs"), RS("NumLegs"), false, sLegOptions
RS.MoveNext
Wend
RS.Close
sSQL = "SELECT DISTINCT BodySections FROM CCPC_Bugs Order By BodySections"
AddOption -1, "Don't Know", false, sBodyOptions
RS.Open sSQL, DataConn
While not RS.EOF
AddOption RS("BodySections"), RS("BodySections"), false, sBodyOptions
RS.MoveNext
Wend
RS.Close
DataConn.Close
Set RS = Nothing
Set DataConn = Nothing
%>
Bug Identifier - Cypress Creek Pest Control
