הקוד שלך בכלל מבולגן ואי אפשר להבין אותו (בחייאת, תן שמות נורמאליים למשתנים), בדוק את זה:
קוד:
sDateLocation = "F:\projects\testing\bah.mdb" 'Data Location
sDataProvider = "Microsoft.Jet.OLEDB.4.0" 'Data Type
'Collect Request -
iID = Request.QueryString("idl")
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Provider = sDataProvider
oConn.Open sDateLocation
Set oRS =Server.CreateObject("ADODB.Recordset")
oRS.Open "SELECT * FROM links WHERE id=" & iID & "" ,oConn
'Some Actions ...
oRS.close
set oRS = nothing
oConn.close
set oConn = nothing
והדפסת הנתונים שלך תעשה בצורה הזו -
וקח טיפ:
שאילתות SELECT אף פעם אל תבצע עם execute, זה פתח לצרות.
עבור שאילתת ה update שראיתי אצלך בטופס:
קוד:
oConn.execute sSqlUpdate
ב ASP (עם VBS

) משתמשים ב DIM בכדי להצהיר על משתנים,
אם אתה רוצה בעת ההצהרה להכניס גם ערך אז משתמשים בנקודותיים, ככה:
קוד:
dim somevar : somevar="x"
אני לפחות, לפני כל משתנה שאני מצהיר אני מכניס אות שתזהה לי אותו -
קוד:
s - string
i - integer
f - function
d - date
o- object
תעבור ככה, הקוד יהיה יותר קריא וברור לך (ואל תשכח הזחה)
בכל מקרה, תעדיף עם JS, יותר נוח