<%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True
Response.ContentType = "text/plain"

On Error Resume Next

' Test 1: Basic ASP
Response.Write "Test 1: ASP Working" & vbCrLf

' Test 2: Include file
<!--#include file="./includes/sql.asp"-->
Response.Write "Test 2: Include file loaded" & vbCrLf

' Test 3: Database connection
If Err.Number <> 0 Then
    Response.Write "Test 3 FAILED: " & Err.Description & vbCrLf
    Err.Clear
Else
    Response.Write "Test 3: Database connection created" & vbCrLf
End If

' Test 4: Simple query
If Not objConn Is Nothing Then
    Dim rs
    Set rs = objConn.Execute("SELECT 1 AS test")
    If Err.Number <> 0 Then
        Response.Write "Test 4 FAILED: " & Err.Description & vbCrLf
        Err.Clear
    Else
        Response.Write "Test 4: Query executed: " & rs("test") & vbCrLf
        rs.Close
    End If
End If

' Test 5: Check for RegExp support
Dim regex
Set regex = New RegExp
If Err.Number <> 0 Then
    Response.Write "Test 5 FAILED: RegExp not available: " & Err.Description & vbCrLf
    Err.Clear
Else
    Response.Write "Test 5: RegExp available" & vbCrLf
End If

' Test 6: Check for Dictionary support
Dim dict
Set dict = Server.CreateObject("Scripting.Dictionary")
If Err.Number <> 0 Then
    Response.Write "Test 6 FAILED: Dictionary not available: " & Err.Description & vbCrLf
    Err.Clear
Else
    Response.Write "Test 6: Dictionary available" & vbCrLf
End If

Response.Write vbCrLf & "All tests complete!"

If Not objConn Is Nothing Then
    objConn.Close
    Set objConn = Nothing
End If
%>