Ik ben bezig met een ASP-forum, en ik ben n bezig met een ban-script voor users, ik heb het volgende gemaakt, maar er klopt iets niet, weet iemand wat het kan zijn?
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| <%
Dim strCon
Dim strSQL
Dim LoggedinUserID
Dim rsAuthor
Dim BanDuration
Dim Bannr
Dim ForumID
Dim TopicID
Response.Buffer = True
LoggedinUserID = Request.Querystring("UserID")
BanDuration = Request.Querystring("BanID")
TopicID = Request.Querystring("TopicID")
ForumID = Request.Querystring("ForumID")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("forum.mdb") 'This one is for Access 2000/2002
Set rsAuthor = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tblAuthor.* FROM tblAuthor Where tblAuthor.Author_ID =" & LoggedinUserID
rsAuthor.Open strSQL, strCon
Bannr = rsAuthor.("Ban_nr")
rsAuthor.Fields("BanDuration") = Banduration
rsAuthor.Fields("BanStart") = Now()
rsAuthor.Fields("Ban_nr") = Bannr + 1
rsAuthor.Update
rsAuthor.Requery
Set rsAuthor = Nothing
Response.Redirect ("displaytopics.asp?ForumID=" & ForumID & "&TopicID=" & TopicID)
%> |