Hall of Fame

1. carrzkiss718,829
2. sybe272,601
3. hielo204,696
4. angelIII168,338
5. x_com106,709
6. R_Harrison101,107
7. ryancys98,848
8. b0lsc0tt95,363
9. jkdt007792,607
10. neeraj52388,506
11. apresto74,890
12. DanielWilson72,330
13. samic40067,360
14. rg2063,580
15. gawai62,650
16. acperkins61,340
17. golfDoctor58,470
18. sunithnair53,765
19. govindaraj...52,288
20. kevp7550,675
21. Badotz49,125
22. DarthSonic47,300
23. daveamour46,990
24. abel46,728
25. _Stilgar_44,034

1. fritz_the...3,975,430
2. alorentz1,929,293
3. amit_g1,339,338
4. hielo1,238,653
5. b0lsc0tt939,845
6. hongjun922,466
7. ap_sajith921,034
8. kevp75918,733
9. WMIF899,748
10. angelIII894,363
11. sybe837,816
12. jitganguly786,812
13. carrzkiss722,769
14. acperkins721,448
15. peh803684,060
16. ryancys679,899
17. neeraj523631,204
18. Silvers5625,555
19. carl_tawn600,110
20. GaryC123576,347
21. apresto525,417
22. golfDoctor520,113
23. SquareHead517,787
24. deighc466,721
25. gladxml429,512

	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

6.4

ASP Write Multiple Rows to Access Database

Asked by ChrisDenny in Active Server Pages (ASP)

Tags: 65064, asp, form, multiple, rows

Problem: I need to write data to an access database. Each line has a "CheckBox" in front of it and for those that I "Check", I need to write to the database. Each row must be written in the database seperately.

Bad Explanation: I read from the ""SMS Machines at all Sites"" access database, specific rows that I need (an asp file). I put a "Check Box" in front of each row during the import to my form. I then want to check each row that I want to submit to read those specific "CheckBox" rows into a "Results" access Database. However, all fields are being written in one row. I need to seperate each row and write each row one at a time

Source Code: Here is my complete code. I am using FrontPage (which doesn't have any good references as for as I can see) on the creation of this:

<%
' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
On Error Resume Next

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
      Err.Clear

      Set fp_conn = Server.CreateObject("ADODB.Connection")
      FP_DumpError strErrorUrl, "Cannot create connection"

      Set fp_rs = Server.CreateObject("ADODB.Recordset")
      FP_DumpError strErrorUrl, "Cannot create record set"

      fp_conn.Open Application("appdetailssms_ConnectionString")
      FP_DumpError strErrorUrl, "Cannot open database"

      fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
      FP_DumpError strErrorUrl, "Cannot open record set"

      fp_rs.AddNew
      FP_DumpError strErrorUrl, "Cannot add new record set to the database"
      Dim arFormFields0(1)
      Dim arFormDBFields0(1)
      Dim arFormValues0(1)

      arFormFields0(0) = "myChoice1"
      arFormDBFields0(0) = "myChoice1"
      arFormValues0(0) = Request("myChoice1")

      FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

      If Request.ServerVariables("REMOTE_HOST") <> "" Then
            FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name"
      End If
      FP_SaveFieldToDB fp_rs, Now, "Timestamp"
      If Request.ServerVariables("REMOTE_USER") <> "" Then
            FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name"
      End If

      fp_rs.Update
      FP_DumpError strErrorUrl, "Cannot update the database"

      fp_rs.Close
      fp_conn.Close

      FP_FormConfirmation "text/html; charset=windows-1252",_
                                    "Form Confirmation",_
                                    "Thank you for submitting the following information:",_
                                    "appdetailssms.asp",_
                                    "Return to the form."

End If
End If

%>
<%
Survey=Request.Cookies("DCSITMDEWEBPAGE")
Response.Write(Session(Name))

%>
<HTML>
<HEAD>
<TITLE>prtnav</TITLE>
<base target="_self">
<style fprolloverstyle>A:hover {color: #FF0000; font-family: Arial; font-size: 12pt}
</style>
</HEAD>
<BODY bgcolor="#FFFFFF">


<table border="1" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<thead>
</thead>
<tbody>
</tbody>
</table>
<form method="POST" action="--WEBBOT-SELF--" name="SMSSubMit">

<table width="100%" border="1">
<tbody>

<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT Distinct V1.*, V2.* FROM ""SMS Machines at all Sites"" V1, ""DCS_Desktop_Engineering"" V2 WHERE V1.SiteCode = '::Department::' AND V2.Name = '::Name::' AND V2.Version = '::Version::' AND V1.UserName0 <> 'NULL' AND V1.Name0 <> 'NULL' AND V2.Field11 = 'Win2000' AND V2.Field7 = 'DCX Developed' "
fp_sDefault="Department=&Name=&Version="
fp_sNoRecords="<tr><td colspan=6 align=left width=""100%"">Automated Distribution is currently not available for this application</td></tr>"
fp_sDataConn="DCSAPPS1"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="Caption0"
fp_sMenuValue="Caption0"
fp_iDisplayCols=6
fp_fCustomQuery=True
BOTID=4
fp_iRegion=BOTID
%>

<tr>
<td>
<INPUT type=checkbox name=MyChoice1 value="<%=FP_FieldVal(fp_rs,"Name0")%>,<%=FP_FieldVal(fp_rs,"Caption0")%>,<%=FP_FieldVal(fp_rs,"Name0")%>,<%=FP_FieldVal(fp_rs,"UserName0")%>,<%=FP_FieldVal(fp_rs,"Name")%> <%=FP_FieldVal(fp_rs,"Version")%>"></td>
<td>
<input type="text" name=A1 size="35" value="<%=FP_FieldVal(fp_rs,"Caption0")%>"></td>
<td>
<input type="text" name=A2 size="17" value="<%=FP_FieldVal(fp_rs,"Name0")%>"></td>
<td>
<input type="text" name=A3 size="12" value="<%=FP_FieldVal(fp_rs,"UserName0")%>"></td>
<td>
<input type="text" name=A4 size="20" value="<%=FP_FieldVal(fp_rs,"Name")%><%=FP_FieldVal(fp_rs,"Version")%>"> </td>
</tr>

</tbody>
</table>

<p align="center"><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
<p align="center"> </p>
<p align="center"><a href="javascript:history.back();"><font face="Arial">BACK</font></a></p>

<pre></pre>

</BODY>
</HTML>

I did my best to understand the posting at but just couldn't apply it due to my lack of knowledge in this: http://www.experts-exchange.com/Web/Web_Languages/ASP/Q_20185284.html

You assistance would be with much appreciation.

Thanks in advance,

Christopher Denny

View the Solution FREE for 30 Days

20091111-EE-VQP-92

ASP Write Multiple Rows to Access Database

Asked by ChrisDenny in Active Server Pages (ASP)

Tags: 65064, asp, form, multiple, rows

About this solution