List new Sent Comments >> Edit


<% ' -- view.asp -- Response.Buffer = True Dim connectionString connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("news99.mdb") ' ID of the file to retrieve Dim ID ID = Request("ID") If Len(ID) < 1 Then ID = 0 End If ' Recordset Object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") ' opening connection rs.Open "SELECT * FROM Files WHERE ID="& ID, connectionString, 3, 4 If Not rs.EOF Then While Not rs.EOF %>
">
Headline :
" name="news_headline" size="40">
Date :
" name="news_datetime" size="40">
Comment :
<% Dim str1 str1 = RS("news_text") If isNull(str1) Then str1 = "" Else str1 = Replace(str1, "
", vbCrLf) End If %>
Name :
" name="news_writer" size="40">
Picture :
...should be 445px
Approve?:


BAck to Sent Comments or Back to admin start page <% rs.MoveNext Wend Else Response.Write "No Record Found" End If rs.Close Set rs = Nothing %> <%End If%>