<%
Dim Connect, cv, rst, val, test, e1
val=Request("pick")
const adLockOptimistic = 3
const adOpenKeySet = 1
const adCmdText = 1
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "vitals_gisedge_com"
Set cv = Connect.Execute("select course, audience, overview, prereq, days, costs FROM descript where courseid = " & "'" & val & "' order by course")
Set cv2 = Connect.Execute("select coursenumber, courselocation, coursestart, courseend, path FROM course where courseid = " & "'" & val & "' order by coursenumber")
'Set cv = Connect.Execute("select course, description FROM cd where number = " & val & " order by course")
%>
GISEDGE GIS Data
Need GIS Data?
GISEDGE can assist you with locating,
converting, digitizing and delivering vector or raster data for your
GIS system. Give GISEDGE a call at 316-928-4724 or email us at ken@gisedge.com
