Buenas,
Sin algún conocimiento sobre VBS, estoy intentando general algo que consulte una BD MySQL.
ejecuto el siguiente script, pero me salta un error que el error dice: "Error: Se requiere un objeto:'Response'".
Alguien me podria ayudar en esto:
Código:
Dim Connection
Dim ConnectionString
Dim Recordset
Dim SQL
SQL = "SELECT * FROM bd_cpu"
ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=192.168.30.91; DATABASE=desempeno; " &_
"UID=xxxxxxxx;PASSWORD=zzzzzzzz!; OPTION=3"
Set Connection = CreateObject("ADODB.Connection")
Set Recordset = CreateObject("ADODB.Recordset")
Connection.Open ConnString
Recordset.Open SQL,Connection
If Recordset.EOF Then
Response.Write("No records returned.")
Else
Do While NOT Recordset.Eof
Response.write Recordset("Mes")
Response.write Recordset("Tipo")
Response.write Recordset("Nombre")
Response.write "<br>"
Recordset.MoveNext
Loop
End If
Recordset.Close
Set Recordset=nothing
Connection.Close
Set Connection=nothing