21. januar 2003 - 10:22
Der er
2 kommentarer og
1 løsning
for each..
Jeg har følgende.
'en talrække
sFools = Trim(Request.Form("formFoolTo"))
'Her splitter jeg
aFools = Split(sFools,",")
Min Sql
qInsertNT = "Insert into table (NT_newsID, NT_foolID) values('" &_
'sGetLast & "' , '" & aTools &" ')"
Jeg skal have en 'for each' løkke omkring, således at den sætter lige så mange tal ind i db som der er.
Anybody
21. januar 2003 - 11:02
#1
det kan du gøre på den måde:
<%
Dim dbconnect
Set dbconnect = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("betalingtest.mdb")
dbconnect.Open strDSN
Dim strQ, rsData
Set rsData = Server.CreateObject("ADODB.Recordset")
for each ID in Request.form("formFoolTo")
qInsertNT= "..."
next
rsData.Open strQ, strDSN
%>
vh hossein