Jag har en sida där man väljer olika saker som man skall kunna göra på sin egen sida och denna informationen matar jag in i en tabell. Totalt rör det sig om ca 50 olika värden som de kan välja.
Tabellen ser ut så här;
id = räknare
val = värdet från förra sidan
a_id = användar-id
Jag har fått denna lilla kodsnutten för att lösa ett liknande problem innan, där hade jag bara ett fält som skulle matas in.
For Each Item In Request.Form
Conn.Execute("Insert Into Tabell (Kolumn) VALUES ('"& Request.Form(Item) &"')")
Next
Hur gör man för att mata in två fält med samma kod?
intID = Request.form("a_id")
For Each Item In Request.Form
If Request.Form <> "a_id" Then
Conn.Execute("Insert Into Tabell (val, a_id) VALUES ('"& Request.Form(Item) &"',"&intID&" )")
Next
om någon annan behöver en liknande kod så har jag finns min kod här
intID = Request.form("a_id")
For Each Item In Request.Form
If Request.Form(item) <> "Spara" Then
if Request.Form(item) <> intID then
DataConn.Execute("Insert Into _admi_t (val, a_id) VALUES ('"& Request.Form(Item) &"','"&intID&"' )")
end if
end if
Next
Nu har jag två fält som skall matas in och de har "olika värde för varje loop".
Jag har försökt med mrBlondes lösning men inte lyckats!
manad = Request.form("manad")
ar = Request.Form("ar")
i = 0
For Each Item In Request.Form
i = i + 1
If Request.Form(item) <> "Spara" Then
if Request.Form(item) <> manad then
if Request.Form(item) <> ar then
'region = request("region")
'if Request.Form(item) <> region then
'DataConn.Execute("Insert Into tabell (poang, manad, ar) VALUES ('"& Request.Form(Item) &"','"&manad&"','"&ar&"' )")
DataConn.Execute("Insert Into tabell (poang, region, manad, ar) VALUES ('"& Request.Form(Item1) &"','"& Request.Form(Item2) &"','"&manad&"','"&ar&"' )")
'end if
end if
end if
end if
Next
Jag har kommenterat bort det som jag hade från början, med ett fält som skulle matas in.
[/r]