write to text file and database at the same time inside for statement?

[chrisf01]

I am trying to write to a text file and the database at the same time. I have a For statement that loops through all the repeated fields in my form and writes it to a text file. That part works 100% without a problem.

My problem is that I also want to write to the SQL database at the same time and anytime I put the sql stored procedure inside the same For statement I get a http 500 error. Do I need to do this outside of the current For statement or am I doing something incorrect?

Thanks!

Dim fso, act
Dim sCon, strSQL
Dim rsProcess
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(strServerpath&"new_"&strPart_number&strOutput_ext, true)
act.WriteLine "Date:,"&Date
act.WriteLine "Time:,"&Time
act.WriteLine "Carline Code:,"&strcarline
act.Writeline "Filter B:,"&strsub_system
act.writeline "GO Version:,"&intprod_ver
act.writeline "Hand:,"&strhandiness
act.writeline "LD Version:,1"
act.writeline "EI Level:,"&strei_level
act.writeline "DC Version:,"
act.writeline "Part Name:,"&strpart_name
act.writeline "Part Number:,"&strPart_number
act.writeline "Plant Code:,"&strplant_code
act.writeline "Sym Opp:,"&strsym_opp
act.writeline "WLRR:,"&intwlrr
act.writeline "LRR#:,"&intlrr
act.writeline "Concern:,"&strconcern
act.writeline "Operator:,"&strOperator
act.writeline "Type:,Component"
act.writeline
act.writeline "Label,X Value, Y Value, Z Value, I Value, J Value, K Value, Size 1, Size 2, Flag #, Sub Type, Subscript, selection set 1, PCA Note, Open Issue Note, Other Notes"
For intV=1 to total_points
strLabel = request.Form ("label"&intv&"")
intX_value = request.Form ("x_value"&intv&"")
intY_value = request.Form ("y_value"&intv&"")
intZ_value = request.Form ("z_value"&intv&"")
intI_value = request.Form ("i_value"&intv&"")
intJ_value = request.Form ("j_value"&intv&"")
intK_value = request.Form ("k_value"&intv&"")
intSize_1 = request.Form ("size_1"&intv&"")
intSize_2 = request.Form ("size_2"&intv&"")
strFlag_num = request.Form ("flag_num"&intv&"")
strSub_type = request.Form ("sub_type"&intv&"")
strSubscript = UCASE(request.Form ("subscript"&intv&""))
strSelection_set = request.Form ("selection_set"&intv&"")
strPca_note = request.Form ("pca_note"&intv&"")
strOi_note = request.Form ("oi_note"&intv&"")
strOther_note = request.Form ("other_note"&intv&"")
 
act.writeline strLabel&","&intX_value&","&intY_value&","&intZ_value&","&intI_value&","&intJ_value&","&intK_value&","&intSize_1&","&intSize_2&","&strFlag_num&","&strSub_type&","&strSubscript&","&strSelection_set&","&strPca_note&","&strOi_note&","&strOther_note
 
strSQL = "prInsertCompInfo '" & strLabel & "," & intX_Value & "," & intY_Value & "," & intz_value & "," & inti_value & "," & intj_value & "," & intk_value & "," & intSize_1 & "," & intSize_2 & "," & strFlag_Num & "," & strSub_type & "," & strSubscript & "," & strSelection_set & "," & strPca_Note & "," & strOI_note & "," & strOther_Note & "," & null & "'"
Set rsProcess = con.execute(strSQL)
 
Next
 

[jhardman]

I don't know of any requirement, I've seen people write to two different dbs at the same time and I would think that is harder, but personally I would wait until the one is finished before starting the other. Specifically, I would do the db first, but maybe at the same time construct a very long string variable containing everything I want to add to the text file, then when I've finished with the db, write the text file all at once. Let me know if this helps.

Jared

[chrisf01]

Ended up not being anything with my statements or order of them. Was between the stored procedured and what I was trying to pass through it.

I love having deadlines that make you rush through stuff without looking at the simple things.

Thanks for the help though.