Option Explicit Option Compare Text Private Sub WebClass_Start() With Response .Write "" .Write "test page asp" .Write "" End With End Sub