<%
Dim cn
Dim rs
Dim fld

'Get the Server and Login information from form1
'Create a connection object
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

'Open a connection; the string refers to the DSN
cn.ConnectionString = "DRIVER=SQL Server;SERVER=DEVELOPER;UID=DDD;PWD=1;DATABASE=pechersk"
cn.Open

rs.ActiveConnection = cn

rs.Open "SELECT 123 as StoreID", , , , adCmdText
rs.First
%>

<table CellPadding="1" CellSpacing="1" Cols="5">

<tr> StoreID </tr>


<%
Do Until rs.EOF
%>

<tr>555 <%=rs.Fields("StoreID")%><br> </tr>

<%
rs.MoveNext
Loop

rs.Close
cn.Close
%>

ОК а почему тут не работает?