<%
Dim id, invoer, naam, email, website, bericht
id = request("id")
invoer = request("invoer")
naam = request("naam")
email = request("email")
website = request("website")
bericht = request("bericht")
bericht = replace(bericht,vbcrlf," ")
' Controleer of er http:// voor de website staat
if left(website,7) <> "http://" then
website = "http://" & Website
end if
Set objCon = Server.CreateObject ("ADODB.Connection")
objCon.Open strCon
%>
Wijzigen bericht
<% 'Invoeren van de gegevens in de tabel
if invoer = "ja" then
SQL = "SELECT * FROM berichten WHERE bericht_id = "& id
Set objData = Server.CreateObject ("ADODB.Recordset")
objData.CursorType = 2
objData.LockType = 3
objData.Open SQL,objCon
objData.Fields("naam") = naam
objData.Fields("email") = email
objData.Fields("website") = website
objData.Fields("bericht") = bericht
objData.Update
objData.Requery
objData.close
Set objData = Nothing
objCon.close
set objCon = nothing
response.redirect "berichten.asp"
response.end
end if
%>
<%
SQL = "SELECT * FROM berichten where bericht_id = " & id
Set objData = Server.CreateObject ("ADODB.Recordset")
objData.Open SQL, objCon, 3
tekst = Replace(objData("bericht")," ",vbcrlf)
%>
<%
objdata.close
set objdate=nothing
objCon.close
set objCon = nothing
%>