Ga naar inhoud

[asp] hoe database benaderen


Aanbevolen berichten

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?
Link naar reactie
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?
Link naar reactie
[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.
Link naar reactie
[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.
Link naar reactie
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 %>
Link naar reactie

Om een reactie te plaatsen, moet je eerst inloggen

Gast
Reageer op dit topic

×   Geplakt als verrijkte tekst.   Herstel opmaak

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

×
×
  • Nieuwe aanmaken...