<%@ Language="VBScript" %>
<%
Dim objRs,strq
%>
<%
if request.Form("submit")="Submit Changes" Then
Dim stext
stext=Replace(request.Form("answer"), "'", "''")
strq="update fft set question='"&Request.Form("question")&"', answer='"&stext&"' where id_num="&Request.form("qid")
objConn.execute (strq)
'response.Write(strq & Request.Form("qid"))
Response.Write("")
Response.Write("")
End if
%>
<%
if request.Form("submit")="Delete FFT" Then
strq="delete from fft where id_num="&Request.form("qid")
objConn.execute (strq)
objConn.execute("delete from fft_comments where question_id="&Request.form("qid"))
'response.Write(strq & Request.Form("qid"))
Response.Write("")
End if
%>
Organic Spam.com
<%
Dim quest,ans
if Request.Form("submit")="Edit" Then
Set objRs=objConn.execute("select * from fft where id_num="&Request.Form("qid"))
While not objRs.eof
%>
»»Edit FFT
<%
objRs.movenext
Wend
objRs.close
Set objRs=nothing
End if
%>
