Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Webprogrammeren & scripting

[asp] hoe database benaderen

Anoniem
None
11 antwoorden
  • 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?
  • 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?
  • sorry
  • [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.
  • 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="Maar de code klopt al helemaal voor geen meter.
    Zelf bedacht of een slecht voorbeeld overgenomen?

    Is er iemand die hem dan een goed voorbeeld geven? Als ik het goed begrijp moet het een heel eenvoudig formuliertje zijn.
  • 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: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.
  • [size=9:bf9af057c6]Psssst: leer quoten![/size:bf9af057c6]
  • [quote:a62ce20f2b="Bill Gates"][size=9:a62ce20f2b]Psssst: leer quoten![/size:a62ce20f2b][/quote:a62ce20f2b]

    Sorry :oops:
  • 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
    %>

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.