The First Persian Weblog Festival

<% strLineColor = "#8560A8" strLightColor = "#F9F7FB" %>

<% set objConn=server.CreateObject ("ADODB.Connection") set objRS=server.CreateObject ("ADODB.Recordset") objConn.Open SQLCS strsql="SELECT * FROM dialog WHERE ishot=0 ORDER BY dialog_datetime DESC" objRS.Open strsql,objConn if not objRS.EOF then counter=1 while not objRS.EOF counter=counter+1 datetime=objRS("dialog_datetime") dialog_link=URL_dialog_pages&"dialog_"&objRS("dialog_id")&".htm" %>

<% if objRS("dialog_small_image")<>"none" then %>

" align="middle"> <% end if %>

<%=objRS("dialog_title")%>

<%=objRS("dialog_short_story")%>

<% objRS.MoveNext wend end if %>