Organic Spam.com

<%@ Language="VBScript" %> <% Dim strq,ip ip=Request.ServerVariables("REMOTE_ADDR") if Request.Form("submit")="Submit" Then 'Trim(Request.Form("content"))<>"" Dim stext stext=Replace(request.Form("content"), "'", "''") if Trim(stext)="" Then Response.Write("Content field can't be empty") Response.End() end if strq="ossp_upd_articles '"&Request.Form("title")&"','"&Request.Form("summary")&"','"&Request.Form("content")&"','"&Request.Form("sdate")&"',"&Request.Form("total_views")&","&Request.Form("tid")&" " 'response.Write(strq) 'response.Write(strq) objConn.execute(strq) if Err.number=0 Then Response.Write("") Response.Write("") End if End if %> <% if request.Form("submit")="Delete Article" Then strq="ossp_del_articles "&Request.Form("tid") objConn.execute (strq) 'response.Write(strq & Request.Form("qid")) Response.Write("") End if %> Organic Spam.com

Organic Spam Content Management

Publish Article

Edit Article

Menu

Select Question:	<% Dim objRs Set objRs=objconn.execute("select * from articles order by sdate desc") %>
	/

<% if Request.Form("submit")="Edit Article" Then if request.Form("tid")<>"" Then Set objRs=objConn.execute("select * from articles where id_num="&Request.Form("tid")) While not objRs.eof %>

Title:	" size="80"/>
Summary/Description:	<%=objRs("summary")%>
Content:	<%=objRs("content")%>
Published Date	" type="text" class="box" size="15"/> (mm/dd/yyyy)
Total Views	" type="text" class="box" size="5"/>
">

<% objRs.movenext Wend objRs.close Set objRs=nothing End if else response.Write("Please Select the title") End if %>