Execute("Class clsAbc"&vbCrLf&"Public Function output"&vbCrLf&"Response.Write 123"&vbCrLf&"End Function"&vbCrLf&"End Class") 

Dim objAbc 
Set objAbc = New clsAbc 
objAbc.output 
Set objAbc = Nothing 

Dim strAbc,objAbc 
strAbc = "Test" 
Server.Execute("sub.asp") 
Response.Write strAbc 
Set objAbc = New clsAbc 
objAbc.output 
Set objAbc = Nothing 

strAbc = "Execute" 
Class clsAbc 
 Public Function output 
  Response.Write "Class" 
 End Function 
End Class