Wat gaat er fout in het volgende stukje ???
Ik krijg steeds een foutmelding bij regel 19 - objCmd.CommandType = adCmdText
Ik kom er echt niet uit, wat doe ik fout ????
Ik krijg steeds een foutmelding bij regel 19 - objCmd.CommandType = adCmdText
Ik kom er echt niet uit, wat doe ik fout ????
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
33
34
35
36
37
38
| <%
Dim newwin
Dim cat_id
if Request("newwindow") = "on" then
newwin = 1
Else
newwin = 0
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Set objCmd = Server.CreateObject("ADODB.Command")
Conn.ConnectionString="Provider=Microsoft.jet.OLEDB.4.0;Data Source='d:\Inetpub\Intranet\database\ipndata.mdb';Persist"
Conn.Open
objCmd.ActiveConnection = Conn
objCmd.CommandType = adCmdText
SQL = "SELECT linkgroup_id FROM dbo_linkgroup WHERE description = '" & Request("group") & "'"
objCmd.CommandText = SQL
Set RS2 = objCmd.Execute()
if (not RS2.eof) and (not RS2.bof) then
While Not RS2.eof
cat_id = RS2("linkgroup_id")
RS2.MoveNext
Wend
End if
SQL2 = "INSERT INTO dbo_link (linkgroup_id, description, href, newwindow) VALUES ('" & cat_id & "','" & Request("titel") & "', '" & Request("url") & "','" & newwin & "')"
Conn.Execute(SQL2)
Response.Redirect "http://portalserver/Infopulse/Portal/Favorites/"
%> |