anoniem Geplaatst: 28 juni 2002 Delen Geplaatst: 28 juni 2002 Ik heb met asp een simpel formuliertje gemaakt, ik heb het op de webserver gezet, maar hij zet niks in de database. als webserver heb ik apache op novell met asp ondersteuning. Hier is de code: [code:1:75c67e2ff0]<% if request.form("Submit")<> "Submit" then %> <form action="index.asp" method="get" enctype="multipart/form-data"> <input type="hidden" name="Submit" value="1"> <table width="377"> <tr> <td align="right" width="104">Soort invoer</td> <td width="263"> <select size="1" name="Soort" tabindex="1"> <option value="Commentaar" selected>Commentaar</option> <option value="Suggestie">Suggestie</option> <option value="Vraag">Vraag</option> </select></td> </tr> <tr> <td align="right" width="104">Area</td> <td width="263"> <select size="1" name="Opleiding" tabindex="2"> <option value="HBO" selected>HBO / WO</option> <option value="MBO">MBO</option> <option value="VWO">VWO</option> <option value="HAVO">HAVO</option> <option value="Anders">Anders</option> </select></td> </tr> <tr> <td align="right" width="104">Naam</td> <td width="263"> <input name="Naam" type="text" size="20" tabindex="3"></td> </tr> <tr> <td align="right" width="104">Achternaam</td> <td width="263"> <input name="Anaam" type="text" size="20" tabindex="4"></td> </tr> <tr> <td align="right" width="104">e-mail adres</td> <td width="263"> <input name="Email" type="text" size="20" tabindex="5"></td> </tr> <tr> <td align="right" valign="top" width="104">Overig</td> <td width="263"> <textarea rows="5" name="Overig" cols="27" tabindex="7"></textarea></td> </tr> <tr> <td align="right"><BR><input CLASS='loginbutton' name="Submit" type=submit value= "Verzenden"><br><br></td> <td align="right"><BR><input CLASS='loginbutton' name="Reset" type=reset value="Wissen"><br><br></td> </tr> </table></table> </form> <% else strType=Request.form("Soort") strArea=Request.form("Opleiding") strFirstName=Request.form("Naam") strLastName=Request.form("Anaam") stremail=Request.form("Email") strDatum=Date strComments=Request.form("Overig") Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "DATA SOURCE=" & server.mappath("comments.mdb") MySQL="Insert into comments (Type, Area, FirstName, LastName, email, SubmitDate, comments) VALUES ('" MySQL=MySQL & strSoort & "', " & "'" & strOpleiding & "', " & "'" & strNaam & "', " & "'" MySQL=MySQL & strAnaam & "', " & "'" & strEmail & "', " & "'" & strDatum & "', " & "'" MySQL=MySQL & strOverig & "')" Set RS=Conn.Execute(MySQL) Conn.Close set Conn=nothing strBody = "Soort -----> " & strSoort & chr(10) & chr(13) strBody=strBody & "Opleiding -> " & strOpleiding & chr(10) & chr(13) strBody=strBody & "Naam ------> " & strNaam & " " & strAnaam & chr(10) & chr(13) strBody=strBody & "Email -----> " & strEmail & chr(10) & chr(13) strBody=strBody & "Overig ----> " & strOverig & chr(10) & chr(13) strBody=strBody & "Datum -----> " & strDatum & chr(10) & chr(13) strBody=strBody & "--------------- " & chr(10) & chr(13) Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "...." objCDO.To = "......." objCDO.Subject = "Test van ASP pagina" objCDO.Body = strBody objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Response.Write "Toegevoegd aan database!<BR><BR>" Response.Write strNaam & " " & strAnaam Response.Write ", Bedankt voor uw " & strSoort Response.Write " over " & strOpleiding end if %> [/code:1:75c67e2ff0] ADODB maakt verbinding met een access db, maar ADODB is echt iets van micro$choft volgens mij. is er een andere manier om het zelfde resultaat te krijgen? Quote Link naar reactie
anoniem Geplaatst: 28 juni 2002 Auteur Delen Geplaatst: 28 juni 2002 MySQL="Insert into comments (Type, Area, FirstName, LastName, email, SubmitDate, comments) VALUES ('" MySQL=MySQL & strSoort & "', " & "'" & strOpleiding & "', " & "'" & strNaam & "', " & "'" MySQL=MySQL & strAnaam & "', " & "'" & strEmail & "', " & "'" & strDatum & "', " & "'" MySQL=MySQL & strOverig & "')" Waar krijgen StrSoort, strOpleiding etc. een waarde? Quote Link naar reactie
anoniem Geplaatst: 28 juni 2002 Auteur Delen Geplaatst: 28 juni 2002 [quote:801a02f901="mispunt"]..., maar ADODB is echt iets van micro$choft volgens mij. ...[/quote:801a02f901] Wat een onzin zeg, als je dan toch zo'n hekel hebt aan microsoft laat het werken met asp dan aan de professionals over en ga lekker knutselen in een ander taaltje :( Alleen om bovenstaande opmerking zou ik je eigenlijk al in je sop moeten laten gaarkoken, maar voor deze keer zal ik proberen aardig te blijven (en dat terwijl ik nog geen koffie op heb ;) ). Kijk eens naar je form, je method is [i:801a02f901]get[/i:801a02f901] en je enctype [i:801a02f901]multipart/form-data[/i:801a02f901]. En dat terwijl je de waarden op wil halen met [i:801a02f901]request.form[/i:801a02f901]. Dat klopt dus niet echt. Quote Link naar reactie
anoniem Geplaatst: 28 juni 2002 Auteur Delen Geplaatst: 28 juni 2002 Tja, het gemakkelijkste is inderdaad met het vingertje naar anderen wijzen :evil: Maar de code klopt al helemaal voor geen meter. Zelf bedacht of een slecht voorbeeld overgenomen? Quote Link naar reactie
anoniem Geplaatst: 28 juni 2002 Auteur Delen Geplaatst: 28 juni 2002 [quote="Maar de code klopt al helemaal voor geen meter. Zelf bedacht of een slecht voorbeeld overgenomen?[/quote] Is er iemand die hem dan een goed voorbeeld geven? Als ik het goed begrijp moet het een heel eenvoudig formuliertje zijn. Quote Link naar reactie
anoniem Geplaatst: 28 juni 2002 Auteur Delen Geplaatst: 28 juni 2002 Op het Internet sterft het van de voorbeelden. Specifieke problemen lossen we graag op. Formulieren moet je zelf maken. Volg eerst een cursus is het credo. Quote Link naar reactie
anoniem Geplaatst: 28 juni 2002 Auteur Delen Geplaatst: 28 juni 2002 [quote:a38857b064="Annie"] Wat een onzin zeg, als je dan toch zo'n hekel hebt aan microsoft laat het werken met asp dan aan de professionals over en ga lekker knutselen in een ander taaltje :( Alleen om bovenstaande opmerking zou ik je eigenlijk al in je sop moeten laten gaarkoken, maar voor deze keer zal ik proberen aardig te blijven (en dat terwijl ik nog geen koffie op heb ;) ). Kijk eens naar je form, je method is [i:a38857b064]get[/i:a38857b064] en je enctype [i:a38857b064]multipart/form-data[/i:a38857b064]. En dat terwijl je de waarden op wil halen met [i:a38857b064]request.form[/i:a38857b064]. Dat klopt dus niet echt.[/quote:a38857b064] Ik heb niet echt een hekel aan microsoft, maar zo noem ik het altijd, omdat alles zo duur is. Dat van de form methode wist ik al, heb ik veranderd in post, maar ik had het verkeerde scriptje bij me. maar is er een mogelijkheid om een connectie te maken met een access database op novell? Trouwens dit formpje heb ik gemaakt met golive. Quote Link naar reactie
anoniem Geplaatst: 28 juni 2002 Auteur Delen Geplaatst: 28 juni 2002 [size=9:bf9af057c6]Psssst: [url=http://forum.computertotaal.nl/phpBB/faq.php?mode=bbcode]leer[/url] quoten![/size:bf9af057c6] Quote Link naar reactie
anoniem Geplaatst: 29 juni 2002 Auteur Delen Geplaatst: 29 juni 2002 [quote:a62ce20f2b="Bill Gates"][size=9:a62ce20f2b]Psssst: [url=http://forum.computertotaal.nl/phpBB/faq.php?mode=bbcode]leer[/url] quoten![/size:a62ce20f2b][/quote:a62ce20f2b] Sorry :oops: Quote Link naar reactie
anoniem Geplaatst: 2 juli 2002 Auteur Delen Geplaatst: 2 juli 2002 ik weet nie hoor maar als je iets in een database wilt zetten gebruik je toch de code <% Set adoCon = Server.CreateObject("ADODB.Connection") strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database_naam.mdb") adoCon.Open strCon Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT database.* From database;" rs.Open strSQL, strCon Set objRs = Server.CreateObject("ADODB.Recordset") rs.Addnew rs.Fields("hier gewoon wat neer kalken") = "Hallo goeie morgen" rs.Update %> Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen