% function ChkStr(strT) if strT = "" then strT = " " strT = Replace(strT, "'", "''") strT = Replace(strT, "|", "/") ChkStr = strT End Function Sub DropDown(tbl, valField, selVal, Field) set rsDrop = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT DISTINCT " & valField & ", " & Field & " FROM " & tbl & _ " ORDER BY " & field rsDrop.Open strSQL,cn do until rsDrop.EOF Response.Write "" & vbcrlf rsDrop.MoveNext loop rsDrop.Close end sub %>
ONLINE VENUE BOOKING FORM | « Back |