%@ Language=VBScript %>
<%
'-- Evitar que se utilice la caché con esta página
Response.Expires = 0
'Marcas de motos
Set miconexion = Server.CreateObject("ADODB.Connection")
miconexion.ConnectionString = "driver={SQL Server};server=217.76.131.36;uid=qq723;pwd=zm002;database=qq723"
miconexion.Open
Set SqlCommand = Server.CreateObject("ADODB.Command")
SqlCommand.ActiveConnection = miconexion
sSql = "SELECT Count(*) CUENTA FROM clubes "
sWHERE = ""
sWHERE = " WHERE [ESTADO] = 'B' "
sQuery = sSQL & sWhere
SqlCommand.CommandText = sQuery
Set RSclubes= SqlCommand.execute
%>
Desiertoymontana.COM Tu portal del Todo Terreno