hmm nu krijg ik ook geen value meer als ik em door insert naar een andere table.
Op een ander script op een andere site, maar wel op dezelfde server en met een db op dezelfde db server (mssql 7) werkt hij nog wel.
Ik snap er niets van, ik heb dit al vaker gedaan en ik snap niet wat ik fout doe.
Hier mijn hele code:
Let niet op die eerste insert, want die heb ik ff in stukken gebroken ivm layoutverkrachting van dit topic.
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
| <!-- #INCLUDE FILE="connection.inc" -->
<%
session.LCID = 1033
Function SQLEncode(sValue)
Position = InStr(sValue, "'")
Do While Position > 0
sValue = Mid(sValue, 1, Position) & Mid(sValue, Position)
Position = InStr(Position + 2, sValue, "'")
Loop
SQLEncode = Server.HTMLEncode(sValue)
End Function
Dim linkRec
Dim catsRec
Dim sysRec
Dim active
Dim homeurl
Dim func
Dim error
error = ""
Set linkRec = Server.CreateObject("ADODB.Recordset")
Set catsRec = Server.CreateObject("ADODB.Recordset")
Set sysRec = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect
Set sysRec = objConn.Execute ("SELECT * FROM system ;")
active = sysRec("addlinkswoa")
homeurl = sysRec("homeurl")
Set sysRec = Nothing
func = Request.QueryString("func")
if func = "write" then
Set linkRec = objConn.Execute ("SELECT * FROM links WHERE url = '"& Request.Form("url") & "';")
'if linkRec.BOF then
sqlstr = "INSERT INTO links (title, description, url, catid, datein,
active, hits, plaats, provincie, phone, email, price)
values ('" & Request.Form("title") & "' , '" & Request.Form("description") & "' , '" &
Request.Form("url") & "' , '" & Request.Form("catid") & "' , '" & date() & "' , '" & 0
& "' , '" & 0 & "' , '" & Request.Form("plaats") & "' , '" & Request.Form("provincie")
& "' , '" & Request.Form("phone") & "' , '" & Request.Form("email") & "' , '" &
Request.Form("price") & "') "
'response.write sqlstr
objConn.Execute (sqlstr)
sql_insert1 = "select @@identity as linkID from links "
set gegevens = objconn.Execute(sql_insert1)
'sqlstr2 = "INSERT INTO test (id) values ('"& gegevens("linkid") &"')"
'objConn.Execute (sqlstr2)
'else
'error = "Link bestaat al"
'end if
end if
response.write gegevens("linkID")
objConn.Close
Set linkRec = Nothing
Set catsRec = Nothing
%> |
[
Voor 21% gewijzigd door
Verwijderd op 04-01-2004 02:41
]