<%@LANGUAGE="VBSCRIPT"%>
<%
Dim shows
Dim shows_cmd
Dim exhibitors
Dim exhibitors_cmd
Dim showname
Dim address
Dim counter
counter = 0
If (Request.QueryString("showid") = "") Then
Set shows_cmd = Server.CreateObject ("ADODB.Command")
shows_cmd.ActiveConnection = MM_SQLServer_STRING
shows_cmd.CommandText = "SELECT * FROM fortbride.shows"
shows_cmd.Prepared = true
Set shows = shows_cmd.Execute
Else
Set exhibitors_cmd = Server.CreateObject ("ADODB.Command")
exhibitors_cmd.ActiveConnection = MM_SQLServer_STRING
exhibitors_cmd.CommandText = "SELECT * FROM fortbride.exhibitors WHERE showid = ? ORDER BY exhibitor"
exhibitors_cmd.Prepared = true
exhibitors_cmd.Parameters.Append exhibitors_cmd.CreateParameter("param1", 5, 1, -1, Request.QueryString("showid"))
Set shows_cmd = Server.CreateObject ("ADODB.Command")
shows_cmd.ActiveConnection = MM_SQLServer_STRING
shows_cmd.CommandText = "SELECT * FROM fortbride.shows WHERE id = ?"
shows_cmd.Prepared = true
shows_cmd.Parameters.Append shows_cmd.CreateParameter("param1", 5, 1, -1, Request.QueryString("showid"))
Set exhibitors = exhibitors_cmd.Execute
Set shows = shows_cmd.Execute
If (NOT shows.EOF) Then
showname = shows.Fields.Item("showname").Value
Else
showname = "Selected Show Not Found"
End If
End If
%>
Fort Wayne Bridal Spectacular—Exhibitors
Exhibitors
<%
If (Request.QueryString("showid") = "") Then
While (NOT shows.EOF)
%>
<%
While (NOT exhibitors.EOF)
counter = counter + 1
address = trim(exhibitors.Fields.Item("address").Value)
If (address <> "") Then
If (Left(address,7) = "http://") Then
address = address
ElseIf (Left(address,8) = "https://") Then
address = address
Else
address = "http://" + address
End If
%> <%
End If
%>
<%=(exhibitors.Fields.Item("exhibitor").Value)%>
<%
If (address <> "") Then
%><%
End If
exhibitors.MoveNext()
Wend
If (counter = 0) Then
%>
