Thread: For Next Loop Within another For Next Loop

Hello,

I have an insert statement

Code:

Dim SQL
For SQL=1 to 10
sql="INSERT INTO [performances] (showID, SeatNumber, SeatPrice, performance_time, ShowDate, ShowStatus)"
sql=sql & " VALUES "
sql=sql & "(" & ("showID") & ","

For SeatNumber=1 to 10
sql=sql & "" & ("SeatNumber") & ","
Next

sql=sql & "" & Request.Form("SeatPrice") & ","
sql=sql & "" & Request.Form("performance_time") & ","
sql=sql & "" & Request.Form("ShowDate") & ","
sql=sql & "'" & Request.Form("ShowStatus") & "')"
Next 

'on error resume next
conn.Execute sql,recaffected

I want to run the insert code 10 times but i also want to run another loop which changes the SeatNumber for each insert.

I am getting this error:

Code:

Microsoft VBScript runtime error '800a000d' 

Type mismatch: '[string: "INSERT INTO [perform"]' 

/insertShow.asp, line 65

Originally Posted by BLaaaaaaaaaarche

Try this:

Code:

For x = 1 To 10
	strSQL = "INSERT INTO [performances] (showID, SeatNumber, SeatPrice, performance_time, ShowDate, ShowStatus) " & _
		"VALUES ( " & _
		showID & ", " & _
		x & ", " & _
		Request.Form("SeatPrice") & ", " & _
		Request.Form("performance_time") & ", " & _
		Request.Form("ShowDate") & ", " & _
		"'" & Request.Form("ShowStatus") & "')"
	conn.Execute strSQL
Next

Thats what i was thinking! but it seems to throw up a syntax error on this line

Code:

conn.Execute strSQL

Originally Posted by Wolffy

Response.Write(strSQL) and see what is being produced.

nothing...

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

/insertShow.asp, line 62

it crashes on the conn.execute strSQL

Originally Posted by Wolffy

Are you writing it out before you attempt to execute it?

Replace the conn.execute statement with the response.write statement.

it doesnt seem to like the time.. hmm it should still work as its a text field...

Syntax error (missing operator) in query expression '12:00'.