<%
On error Resume Next
Set Project = Server.CreateObject("ADODB.Connection")
Project.ConnectionTimeout = Application("LC_ConnectionTimeout")
Project.CommandTimeout = Application("LC_CommandTimeout")
Project.Open Application("LC_ConnectionString"), Application("LC_RuntimeUserName"), Application("LC_RuntimePassword")
If Err Then
Response.write "We're sorry but the database is not available right now. Please try again later."
Response.End
End If
'build sql statement
strSql = "SELECT cheese_id,cheese_name FROM cheese Order By cheese_name"
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = strSQL
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = Project
RS.Open cmdTemp, , 0, 1
Do While Not rs.eof
CheeseOpt = CheeseOpt & "" & vbcrlf
rs.movenext
Loop
rs.close
'build sql statement
strSql = "SELECT Prod_id,varietal FROM Product Order By varietal"
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set RS = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = strSQL
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = Project
RS.Open cmdTemp, , 0, 1
Do While Not rs.eof
WineOpt = WineOpt & "" & vbcrlf
rs.movenext
Loop
rs.close
project.close
%>