Lo que quieres es esto:
Código:
<%
Set Con = Server.CreateObject("adodb.connection")
sConn = "Driver= "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=myDatabase;USER=myUsername;PASSWORD=myPassword;OPTION=3;"
con.Open sConn
vSQL= "SELECT id as userid, fullname, userstatus " &_
"FROM sometable " &_
"WHERE userstatus = 1"
set adoRs = Server.CreateObject("adodb.recordset")
adoRs.Open vSQL,Con
if adoRs.EOF Then
Response.Write "No se regresaron datos"
Response.End
End If
While Not adoRs.Eof
Response.Write adoRs("userid") & " "
Response.Write adoRs("fullname") & " "
Response.Write adoRs("userstatus") & "<br>"
adoRs.MoveNext
Wend
adoRs.Close
set adoRs = nothing
set con = nothing
%>
Ahora, hay algunas cuestiones que hay que revisar, por ejemplo si hay un error en php mandas el código del error. En ASP también se puede, para ello hay dos formas:
1)
ado.Error
2)
On Error
Saludos