Problem med att lägga till i Datbas!

Loopa igenom raderna och hämta ut veckan för varje med Request.Form("vecka" & rad) och dagen med Request.Form("dag" & rad).

Det kommer inte att fungera att bara göra så. Jag ber om ursäkt om jag var otydlig men vad jag behöver är att sätta in allt i databas en gång per "visning". Alltså, väljer jag femton visningar (se exemplet inlägg #1) så måste jag lägga til först:
vecka1, dag1, tid1, titel, text, bild, pris
sedan:
vecka2, dag2, tid2, titel, text, bild, pris
osv till vecka 15, dag15 osv. är insatta i dbn...

Vad är då problemet med Guffas förslag?
Precis så förstår jag det också...

Problemet kallas tankefel :r
Anyhow, nu har jag loopat runt lite men har nog gjort något gravt fel. Allting fungerar toppen, får inga felmeddelanden men den lägger inte till i databasen :q. Titta i exemplet i inlägg #1.
Koden ser ut:

<%
valtantal = request.form("antal")

Set Con = Server.CreateObject("ADODB.Connection") 
	Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/bio.mdb")&";"

If Request.QueryString("do") = "add" Then
	addloop=1
	do until addloop = valtantal +1

	titel	= Request.Form("titel")
	text	= Request.Form("text")
	vecka	= Request.Form("vecka'&=intloop&'")
	dag	= Request.Form("dag'&=intloop&'")
	bild	= Request.Form("bild'&=intloop&'")
	starttid= Request.Form("tid")
	pris	= Request.Form("pris")
	
'	SQL = "Insert Into bio(titel) Values('" & titel & "')"

	SQL = "Insert Into bio(titel, [text], vecka, dag, bild, starttid, pris) Values('" & titel & "', '" & text & "',"_
		& vecka & ", " & dag & ", '" & bild & "', '" & starttid &"', '" & pris & "')"
		
	Con.Execute(SQL)

	addloop = addloop+1
	loop
	
	Con.Close
	Set Con = nothing

	Session("mess") = "Händelsen är nu inlagd i databasen"
	
	Response.Redirect "admin_copy(1).asp"
End If
%>

valtantal = Cint(request.form("antal"))

2. Gör testutskrifter. Till exempel, innehåller valtantal det du förväntar dig?
3. Skriv ut SQL-frågorna och se om de ser ok ut.
4. Blir du redirectad?
5. Fundera också på att byta till OLEDB-drivern. http://www.connectionstrings.com/

Jaha, numera ser det ut som följer:

<%
valtantal = Cint(request.querystring("antal"))

' Kopplingen till databasen
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/bio.mdb")

If Request.QueryString("do") = "add" Then
	addloop=1
	do until addloop = valtantal +1

	titel	= Request.Form("titel")
	text	= Request.Form("text")
	vecka	= Request.Form("vecka'&=intloop&'")
	dag		= Request.Form("dag'&=intloop&'")
	bild	= Request.Form("bild'&=intloop&'")
	starttid= Request.Form("tid")
	pris	= Request.Form("pris")
	
'	SQL = "Insert Into bio(titel) Values('" & titel & "')"

	SQL = "Insert Into bio(titel, [text], vecka, dag, bild, starttid, pris) Values('" & titel & "', '" & text & "',"_
		& vecka & ", " & dag & ", '" & bild & "', '" & starttid &"', '" & pris & "')"
	
	Con.Execute(SQL)
	
	Con.Close
	Set Con = nothing

	addloop = addloop+1
	loop

	Session("mess") = "Händelsen är nu inlagd i databasen"
	
	Response.Redirect "admin_copy(1).asp"
End If
%>

Jag redirectas precis som jag skall, SQLfrågorna ser fina ut, de innehåller den informationen som jag vill att de skall...
Drivern är bytt till OLEDB... Valtantal fixad så den ger precis rätt.
WTF är fel. Ingenting landar i databasen ju =(.

Som jag ser det är det ett litet skriv fel.

	Con.Execute(SQL)
	
	Con.Close
	Set Con = nothing

Skall ändra till:

	Conn.Execute(SQL)
	
	Conn.Close
	Set Conn = nothing

Blir det sedan fortsatt fel så koppla bort redirect och skriv ut sql med Respone.Write för att se där finns några fel.

Konstigt att du inte får några felmeddelanden. Du har inte on error resume next i koden?
Du kan inte stänga connectionobjektet i loopen heller. Lägg utanför, tillsammans med redirect.

Inget on error resume next i den här koden inte.
Däremot får jag felmeddelande när jag lägger alla connectionobjekten utanför loopen.
Meddelandet lyder:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'Con'
/bio/admin_copy(1).asp, line 42

Line 42 ligger i den här biten:

	addloop = addloop+1
	loop
	
	Conn.Execute(SQL)
	
	Conn.Close
	Set Conn = nothing

Vad är det som är fel med det här?

Ändra Con till Conn, som SannyW visade.

Du har inget värde i Request.Form("antal") eller Request.Querystring("antal"). Fältet "antal" ligger inte i det formulär du postar, så det värdet får du aldrig med, och du lägger inte in någon querystring som heter antal.

Missade visst SannyWs inlägg helt :r
Jo, det har jag visst. Jag skriver ut värdet <%=valtantal%> i koden och får beroende på valt antal i formulärfältet "antal" ett tal mellan 1-15 ;). Så den biten stämmer.
Jag ändrade som SannyW skrev och får numera:

Feltyp:
Microsoft JET Database Engine (0x80040E0C)
Det angavs inte någon kommandotext för kommandoobjektet.
/bio/admin_copy(1).asp, line 42

Kodsnutten med Line42 i ligger i mitt tidigare inlägg...

Det tyder på att du angett fel namn på variabeln som innehåller SQL-frågan. Dubbelkolla.

Variabelnamnen seems to be allright. ?do=add står det på bägge två så det känns rätt reko...
Vad sjutton har jag missat :q

Visa koden fram till c:a rad 45.

mvh

Here we go then:

<%
intantaltider=15
valtantal = Cint(request.querystring("antal"))

' Kopplingen till databasen
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/bio.mdb")

If Request.QueryString("delete") <> "" Then
	SQL = "Delete From bio Where id = " & Request.QueryString("delete")
	Con.Execute(SQL)
	Response.Redirect "admin.asp"
End If

If Request.QueryString("do") = "add" Then
	addloop=1
	do until addloop = valtantal +1

	titel	= Request.Form("titel")
	text	= Request.Form("text")
	vecka	= Request.Form("vecka'&=intloop&'")
	dag		= Request.Form("dag'&=intloop&'")
	bild	= Request.Form("bild'&=intloop&'")
	starttid= Request.Form("tid")
	pris	= Request.Form("pris")
	
'	SQL = "Insert Into bio(titel) Values('" & titel & "')"

	SQL = "Insert Into bio(titel, [text], vecka, dag, bild, starttid, pris) Values('" & titel & "', '" & text & "',"_
		& vecka & ", " & dag & ", '" & bild & "', '" & starttid &"', '" & pris & "')"
	
	addloop = addloop+1
	loop
	
	Conn.Execute(SQL)
	
	Conn.Close
	Set Conn = nothing
	
	Session("mess") = "Händelsen är nu inlagd i databasen"
	
	Response.Redirect "admin_copy(1).asp"
	
	End If
	%>

1. byt:

	vecka	= Request.Form("vecka'&=intloop&'")
	dag		= Request.Form("dag'&=intloop&'")
	bild	= Request.Form("bild'&=intloop&'")

till:

	vecka	= Request.Form("vecka" & intloop)
	dag	= Request.Form("dag" & intloop)
	bild	= Request.Form("bild" & intloop)

2. lägg in exekvering av SQL-frågan i loopen, annars körs ju bara den sista.

Delete-delen kommer inte heller fungera, du har fortfarande fel namn på connectionobjektet där.

Mv

Kod byt och slutet på loopen ser nu ut såhär:

	Conn.Execute(SQL)
	
	addloop = addloop+1
	loop

Lik förbannat envisas det med att inte lägga till något och ändå inte visa felmeddelande... Jag fattar absolut ingenting längre.
R// Deletegrejjen fixad

Och utskriften av alla SQL-frågor ser OK ut?

Nu funkar ingenting? Har tagit bort response.redirect satsen men fortfarande redirectas jag efter att jag har skickat in formuläret? Även prövat att uppdatera med CTRL + F5.
Nu går jag och lägger mig. Orkar inte med...