Inserting data into Access

ASP Free Forums Sponsor:

December 6th, 2000, 07:26 AM

Steve Schofield

Contributing User

ASP Free God 20th Plane (14500 - 14999 posts)

Join Date: Dec 2002

Posts: 14,575

Time spent in forums: < 1 sec
Reputation Power: 22

Inserting data into Access

Originally posted by : seth (seth@immune.co.uk) I am a complete newbie to ASP but trying to pick up the language, using Dreamweaver Ultradev I have managed to create a form that will insert fields into a database. However, I keep getting internal server errors. Error type = "Provider (0x80004005) Unspecified error) I can usually load the page once but if I do a refresh it gives errors. Also, I can only get the data to insert if I am using a browser on the server itself. If I try to use the site from anywhere else, I just get a HTTP 500 Internal Server error with no explanation. My code is below, any help would be greatly appreciated... ---------------------------------------------- <%@LANGUAGE="VBSCRIPT"%><% ' *** Insert Record: construct a sql insert statement and execute it MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If If (CStr(Request("MM_insert")) <> "") Then MM_tableName = "Customers" MM_fields = "title,title,',none,'',firstname,firstname,',none,' ',surname,surname,',none,'',aga,aga,none,1,0,raybu rn,rayburn,none,1,0,coalbrookdale,coalbrookdale,no ne,1,0,masterchef,masterchef,none,1,0,agavideo,aga video,none,1,0,rayburnvideo,rayburnvideo,none,1,0, survey,survey,none,1,0,cookshopinfo,cookshopinfo,n one,1,0,newsandspecials,newsandspecials,none,1,0,a ddress1,address1,',none,'',address2,address2,',non e,'',address3,address3,',none,'',addresspc,address pc,',none,'',addresscountry,addresscountry,',none, '',telephone,telephone,',none,'',email,email,',non e,'',fax,fax,',none,'',web,web,',none,'',company,c ompany,',none,'',companyposition,companyposition,' ,none,''" MM_redirectPage = "http://server" ' create the insert sql statement MM_tableValues = "" MM_dbValues = "" MM_fieldsArray = Split(MM_fields, ",") For i = LBound(MM_fieldsArray) To UBound(MM_fieldsArray) Step 5 FormVal = CStr(Request.Form(MM_fieldsArray(i))) Delim = MM_fieldsArray(i+2) If (Delim = "none") Then Delim = "" AltVal = MM_fieldsArray(i+3) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_fieldsArray(i+4) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fieldsArray)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_fieldsArray(i+1) MM_dbValues = MM_dbValues & FormVal Next MM_insertStr = "insert into " & MM_tableName & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" ' finish the sql and execute it Set MM_insertCmd = Server.CreateObject("ADODB.Command") MM_insertCmd.ActiveConnection = "dsn=aga;" MM_insertCmd.CommandText = MM_insertStr MM_insertCmd.Execute ' redirect with URL parameters If (MM_redirectPage = "") Then MM_redirectPage = CStr(Request("URL")) End If If (InStr(1, MM_redirectPage, "?", vbTextCompare) = 0 And (Request.QueryString <> "")) Then MM_redirectPage = MM_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(MM_redirectPage) End If %> <% set c = Server.CreateObject("ADODB.Recordset") c.ActiveConnection = "dsn=aga;" c.Source = "SELECT * FROM countries" c.CursorType = 0 c.CursorLocation = 2 c.LockType = 3 c.Open c_numRows = 0 %> <html> <head> <title>kjnkj</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="JavaScript">  </script> </head> <body bgcolor="#FFFFFF" background="file:///i%7C/hosting/web/iclientarea.co.uk/website/454/testarea/main/contact_us/media/background.jpg" onLoad="MM_preloadImages('file:///i%7C/hosting/web/iclientarea.co.uk/website/454/testarea/main/contact_us/media/home_page_on.gif')"> <form name="form1" method="post" action="<%=MM_editAction%>"> <div id="DBStyleImage1" style="left: 0px; top: -1px"> <img id="Image1" name="Image1" class="Normal" src="file:///i%7C/hosting/web/iclientarea.co.uk/website/454/testarea/main/contact_us/media/request_information.jpg" width="299" height="28" border="0"> <div id="Layer1" style="position:absolute; width:87px; height:15px; z-index:1; left: 64px; top: 53px">Title</div> <div id="Layer2" style="position:absolute; width:85px; height:16px; z-index:2; left: 154px; top: 52px">First Name </div> <div id="Layer3" style="position:absolute; width:67px; height:18px; z-index:3; left: 303px; top: 49px">Surname</div> <table width="89%" border="0"> <tr> <td width="19%"> <div align="right"> name: <input type="text" name="title" size="8"> </div> </td> <td width="23%"> <input type="text" name="firstname"> </td> <td width="58%"> <input type="text" name="surname"> * </td> </tr> </table> <div id="Layer7" style="position:absolute; width:184px; height:396px; z-index:7; left: 528px; top: 0px"> <a href="file://///hosting/web/iclientarea.co.uk/website/454/testarea/flash_main.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image2','','file:///i%7C/hosting/web/iclientarea.co.uk/website/454/testarea/main/contact_us/media/home_page_on.gif',1)"><img name="Image2" border="0" src="file:///i%7C/hosting/web/iclientarea.co.uk/website/454/testarea/main/contact_us/media/home_page_off.gif" width="90" height="35"> </a> i would like to request: <input type="checkbox" name="aga" value="checkbox"> Aga brochure <input type="checkbox" name="rayburn" value="checkbox"> Rayburn brochure <input type="checkbox" name="coalbrookdale" value="checkbox"> Coalbrookdale brochure <input type="checkbox" name="masterchef" value="checkbox"> Masterchef brochure <input type="checkbox" name="agavideo" value="checkbox"> Aga video <input type="checkbox" name="rayburnvideo" value="checkbox"> Rayburn Video <input type="checkbox" name="survey" value="checkbox"> Home survey <input type="checkbox" name="cookshopinfo" value="checkbox"> Aga Cook Shop information <input type="checkbox" name="checkbox822" value="checkbox"> Do you wany your details shared? <input type="checkbox" name="newsandspecials" value="checkbox" checked> Please inform me of any news or special offers. </div> <div id="Layer4" style="position:absolute; width:63px; height:13px; z-index:4; left: 70px; top: 158px">House No </div> <table width="89%" border="0"> <tr> <td width="19%"> <div align="right">address: <input type="text" name="housenumber" size="8"> </div> </td> <td width="81%"> <input type="text" name="address1" size="46"> * </td> </tr> </table> <table width="89%" border="0"> <tr> <td width="19%"> </td> <td width="81%"> <input type="text" name="address2" size="46"> </td> </tr> <tr> <td width="19%"> </td> <td width="81%"> <input type="text" name="address3" size="46"> </td> </tr> <tr> <td width="19%"> </td> <td width="81%"> <input type="text" name="addresspc" size="10"> * <select name="addresscountry"> <% While (NOT c.EOF) %> <option value="<%=(c.Fields.Item("Country").Value)%>"><%=(c.Fields.Item("Country").Value)%></option> <% c.MoveNext() Wend %> </select> </td> </tr> </table> <div id="Layer5" style="position:absolute; width:52px; height:16px; z-index:5; left: 140px; top: 227px">Postcode</div> <table width="89%" border="0"> <tr> <td width="19%"> <div align="right">telephone: </div> </td> <td width="81%"> <input type="text" name="telephone" size="20"> email: <input type="text" name="email" size="15"> </td> </tr> </table> <table width="89%" border="0"> <tr> <td width="19%"> <div align="right">fax: </div> </td> <td width="81%"> <input type="text" name="fax" size="20"> www: <input type="text" name="web" size="16"> </td> </tr> </table> <table width="89%" border="0"> <tr> <td width="19%"> <div align="right">company: </div> </td> <td width="81%"> <input type="text" name="company" size="20"> <input type="text" name="companyposition" size="21"> </td> </tr> </table> </div> <div id="Layer6" style="position:absolute; width:40px; height:15px; z-index:6; left: 246px; top: 226px">County</div> * - please complete these compulsory fields, so the information can be posted to you. <input type="submit" name="Submit" value="Send"> <input type="hidden" name="MM_insert" value="true"> </form> </body> </html>

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: