<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;"
Conn.Open DSN
' SQL sætning opbygges
strNR = Request.Form("declan")
strTOM = ""
strSQL = "UPDATE spobruger SET "
strSQL = strSQL & "clan = '"&strTOM&"' "
strSQL = strSQL & " WHERE brugerID = "&strNR&" "
response.write(strSQL)
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
bruger nr <%=strnr%> er afgodkendt
d.
<%
Response.Write Now
%>