%@LANGUAGE="VBSCRIPT"%> <% dim conn set conn = server.CreateObject("adodb.connection") conn.open MM_guo_conn_STRING %> <% If Request.QueryString("id") <> "" then Session("id") = request.QueryString("id") End If %> <% Dim Guo_RSMessages Dim Guo_RSMessages_cmd Dim Guo_RSMessages_numRows Set Guo_RSMessages_cmd = Server.CreateObject ("ADODB.Command") Guo_RSMessages_cmd.ActiveConnection = MM_guo_conn_STRING Guo_RSMessages_cmd.CommandText = "SELECT top 6 * FROM message WHERE voli = 1 ORDER BY date desc" Guo_RSMessages_cmd.Prepared = true Set Guo_RSMessages = Guo_RSMessages_cmd.Execute Guo_RSMessages_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Guo_RSMessages_numRows = Guo_RSMessages_numRows + Repeat1__numRows %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||