Derek Fisher's Portfolio

'	Global variables
Dim dbc, rsData, rsFieldNames, tempFld, tempVal, sql, str, tempCom,i, highNum, fldStr, cnt, loopCnt, val, table

If Request.Form("confirm")="" Then

table = Request.Form("table")
	sql = "INSERT INTO "
	tempVal = Request.Form("insertstring")
	highNum = Request.Form("insertstring").Count

'	Local Variables
       	Dim confTable, confVal
       	
		confTable = Request.Form("table")
		confVal = Request.Form("insertstring")

'	Open connection to the EDO.mdb    
	Set dbc = Server.CreateObject("ADODB.Connection")
	dbc.ConnectionString = "DSN=edo"
	dbc.Open

'	Create ADO schema	
		Set rsFieldNames = dbc.OpenSchema(4, Array(empty, empty, confTable, empty) )
		
'	Create data insertion table			
		Response.Write "<HTML><BODY BGCOLOR=White><font face='verdana,arial' size=2>"
		Response.Write "<img src = 'assests\bg.jpg'><br /><br />"
		Response.Write "<table bgcolor='#c0c0c0' width='100%'><tr>"
		Response.Write "<td width='20%' align ='center'><a href = 'index.asp'>Home</a></td>"
		Response.Write "<td width='20%' align ='center'><a href = 'mControl.html'>Mission Control</a></td>"
		Response.Write "<td width='20%' align ='center'><a href = 'library.html'>Library</a></td>"
		Response.Write "<td width='20%' align ='center'><a href = 'tools.html'>Tools</a></td>"
		Response.Write "<td width='20%' align ='center'><a href = 'contact.html'>Contact</a></td>"
		Response.Write "</tr></table>"
		Response.Write "<FORM METHOD='Post' ACTION='confirm.asp'>"
		Response.Write "<h3>Data to be submitted:</h3>"	
		Response.Write "<table border =1><tr>"

Do While Not(rsFieldNames.EOF)
			Response.Write "<td>"&rsFieldNames(3)&"</td>"			
         	rsFieldNames.MoveNext
	Loop

Response.Write "</tr><tr>"

For Each val In Request.Form("insertstring")
		Response.Write "<td>"&val&"</td>"
	Next

rsFieldNames.Close
		set rsFieldNames = Nothing

'	Create ADO schema
    Set rsFieldNames = dbc.OpenSchema(4, Array(empty, empty, table, empty) )

'	Count the number of fields in the table and return value to loopCnt
		cnt = 0		
   	Do While Not(rsFieldNames.EOF)
			cnt = cnt + 1
           	rsFieldNames.MoveNext
		Loop	
		loopCnt = cnt

'	Reset cnt to 0 loopCnt should now contain the number to tables
		cnt = 0

'	Create ADO schema
    Set rsFieldNames = dbc.OpenSchema(4, Array(empty, empty, table, empty) )

'	This loop formats the field names for the SQL string  
   		Do While cnt < loopCnt
				cnt = cnt + 1
			If cnt <> loopCnt Then
				fldStr = fldStr & "["&rsFieldNames(3)&"], "
          	ElseIf cnt = loopCnt Then
          		fldStr = fldStr & "["&rsFieldNames(3)&"]"
         	End If
			rsFieldNames.MoveNext
  		Loop
		Response.Write "</table>"	
		Response.Write "<tr><td>"

'	This loop formats the string for SQL		
		For i = 1 to Request.Form("insertstring").Count
		If i <> highNum Then
			str = str&"'" & Request.Form("insertstring")(i)&"', "
		Else
			str = str&"'" & Request.Form("insertstring")(i)&"'"
		End If
		Next

Response.Write "</td></tr>"
		Response.Write "</table>"
		Response.Write "</body></html>"	
		
'	Form the SQL string
		sql = sql &table& " ("&fldStr&") VALUES (" &str& ")"

'	Uncomment to show the string being passed to SQL
'		Response.Write sql

'	Execute the SQL string
		Set rsData = dbc.Execute(sql)

Response.Write "</tr></table>"
		Response.Write "<INPUT TYPE='hidden' NAME='table' VALUE='" & Request.Form("table") & "'>"  
		Response.Write "<INPUT TYPE='hidden' NAME='insertstring' VALUE='" & Request.Form("insertstring") & "'>" 
		Response.Write "<br />"      
		Response.Write "<Input type='submit' value=' Submit to Database --> '>"

'	Empty memory/Cleanup
		rsFieldNames.Close
		set rsFieldNames = Nothing 
		dbc.Close
		set dbc = Nothing
			      
End If