<%@ Language=VBScript %> DB Test

Database Test Page

<% On Error Resume Next Dim rs Set rs = objConn.Execute("SELECT COUNT(*) AS cnt FROM machines WHERE machinetypeid = 31") If Err.Number <> 0 Then Response.Write("

ERROR: " & Server.HTMLEncode(Err.Description) & "

") Else Response.Write("

Query successful! Switch count: " & rs("cnt") & "

") End If rs.Close Set rs = Nothing objConn.Close %>