Hjælp til gæstebog i asp
Når der er skrevet et indlæg, skal jeg ind som administrator og lade som om jeg redigerer i teksten, før indlægget kan vises i gæstebogen.Når jeg logger ind som admin står den på "on hold", når den er redigerret står der "verificeret".
Jeg vil gerne have indlægget til at komme frem med det samme. Er der en der kan hjælpe?
asp code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>
<%
Function CheckCAPTCHA(valCAPTCHA)
SessionCAPTCHA = Trim(Session("CAPTCHA"))
Session("CAPTCHA") = vbNullString
if Len(SessionCAPTCHA) < 1 then
CheckCAPTCHA = False
exit function
end if
if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then
CheckCAPTCHA = True
else
CheckCAPTCHA = False
end if
End Function
%>
<% Dim ip
ip =request.serverVariables("REMOTE_ADDR")
%>
<title>DEDADUR's GÆSTEBOG</title>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
strCAPTCHA = Trim(Request.Form("strCAPTCHA"))
if CheckCAPTCHA(strCAPTCHA) = true then
%>
<%
Dim guestbook
Dim Rs2
Dim sql
Dim guest_ip
Function stripHTML(strtext)
dim arysplit,i,j, strOutput
arysplit=split(strtext,"<")
if len(arysplit(0))>0 then j=1 else j=0
for i=j to ubound(arysplit)
if instr(arysplit(i),">") then
arysplit(i)=mid(arysplit(i),instr(arysplit(i),">")+1)
else
arysplit(i)="<" & arysplit(i)
end if
next
strOutput = join(arysplit, "")
strOutput = mid(strOutput, 2-j)
strOutput = replace(strOutput,">",">")
strOutput = replace(strOutput,"<","<")
stripHTML = strOutput
End Function
'Create an ADO connection and recordset object
Set guestbook = Server.CreateObject("ADODB.Connection")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
'Set an active connection and select fields from the database
guestbook.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("guestbook.mdb")
sql= "SELECT * FROM guests;"
'Set the lock and cursor type
Rs2.CursorType = 1
Rs2.LockType = 3
Rs2.Open sql, guestbook 'Open the recordset with sql query
Rs2.AddNew 'Prepare the database to add a new record and add
Rs2.Fields("sign_date") = Request.Form("sign_date")
Rs2.Fields("name") = StripHTML(Request.Form("name"))
Rs2.Fields("email") = StripHTML(Request.Form("email"))
Rs2.Fields("location") = StripHTML(Request.Form("location"))
Rs2.Fields("comments") = StripHTML(Request.Form("comments"))
Rs2.Fields("guest_ip") = ip
Rs2.Update 'Save the update
Rs2.Close
Set Rs2 = Nothing
Set guestbook = Nothing
Else
response.redirect("sign.asp")
End If
response.write "The form information was inserted successfully."
response.redirect("Index.asp")
End if
%>