0 Then
ConnectErrorMsg = "Connection To Database Failed - Please Try Again"
End If
End Sub
openConnection1 AmosConn, ConnectErrorMsg
sql="SELECT *, tblDocGroups.DocGroupDesc FROM tblAbstractDocs INNER JOIN " &_
"tblDocGroups ON tblAbstractDocs.DocGroupID = tblDocGroups.DocGroupID "&_
" where abstractid=" & lclAID & " AND tblDocGroups.ShowInProgram <> 0 and DocGroupDesc like '%handout%' order by tblDocGroups.DocGroupID" '--- note that this is hardcoding prof support docs out of this query
'response.write(sql)
set DocRS=Server.CreateObject("ADODB.RECORDSET")
Set DocRS = AmosConn.Execute(sql)
If not DocRS.EOF Then %>