Hallo Michael, Wow... danke :) das ging echt schnell... und ist ganz sch�n Umfangreich... ich freue mich schon auf den Tag wo ich auch ein VBScript Crack bin (obwohl ich viel lieber PHP lernen w�rde... aber das kommt noch)
Naja.. danke nochmal, ich werde mal sehen ob ich das Script verstehen und verwenden kann :) mfG Mirco -----Urspr�ngliche Nachricht----- Von: Michael Mayr [mailto:[EMAIL PROTECTED]] Gesendet: Freitag, 16. November 2001 12:14 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] AW: ASP Redaktionssystem mit DB Anbindung hallo! hier mal ein ansatz (viele wege f�hren nach rom): Const dbName ="dsn=deinedatenbank.mdb" Const dbUser ="uid=" Const dbPassword ="pwd=" Dim dbSqlbef Dim dbResultset Dim dbObj Sub Update() Dim vnr, vthnr, titel, spl, reg, inh, bild vnr = " WHERE vnr=" & Request.Form("vnr") vthnr = "vthnr=" & Request.Form("vthnr") titel = ",titel='" & Replace(Request.Form("titel"), "'", "�") & "'" spl = ",spl='" & Replace(Request.Form("spl"), "'", "�") & "'" reg = ",reg='" & Replace(Request.Form("reg"), "'", "�") & "'" inh = ",inh='" & Replace(Request.Form("inh"), "'", "�") & "'" bild = ",bild='" & Replace(Request.Form("bild"), "'", "�") & "'" dbSqlbef = "UPDATE filme SET " & vthnr & titel & spl & reg & inh & bild & vnr dbObj.Execute(dbSqlbef) End Sub Sub Delete() dbSqlbef= "Delete * from filme where vnr=" & Request.Form("vnr") dbobj.Execute dbSqlbef end sub Sub Insert() Dim vnr, vthnr, titel, spl, reg, inh, bild Set dbResultset = dbObj.execute("select max(vnr)+1 as neuevnr from filme") vnr= dbResultset("neuevnr") Set dbResultset=nothing vthnr= ",'" & Request.Form("vthnr")& "'" titel= ",'" & Replace(Request.Form("titel"), "'", "�") & "'" spl= ",'" & Replace(Request.Form("spl"), "'", "�") & "'" reg= ",'" & Replace(Request.Form("reg"), "'", "�") & "'" inh= ",'" & Replace(Request.Form("inh"), "'", "�") & "'" bild= ",'" & Replace(Request.Form("bild"), "'", "�") & "'" dbSqlbef = " insert into filme (vnr, vthnr, titel, spl, reg, inh, bild) values(" & vnr & vthnr & titel & spl & reg & inh & bild & ")" on error resume next dbobj.Execute dbSqlbef if err.number <> 0 then response.write "<h3>Transaktion war nicht erfolgreich!<br>" response.write "Alle Felder m�ssen einen Wert enthalten!<br>" response.write "Klicken Sie im Browser auf zur�ck und versuchen Sie es noch einmal!</h3>" err.clear end if end sub 'Datenbankverbindung herstellen Set dbObj=Server.CreateObject("ADODB.Connection") dbObj.Open dbName & ";" & dbUser & ";" & dbPassword 'wenn Formular abgeschickt wurde, dann die jeweilige SUB ausf�hren if Request.Form.Count>0 then if Request.Form("action")= "U" then Update elseif Request.Form ("action")= "D" then Delete elseif Request.Form ("action") = "INS" then Insert end if end if Set dbObj = nothing Set dbResultset = nothing mit besten Gr�ssen Michael Mayr -----Urspr�ngliche Nachricht----- Von: Stege, Mirco [mailto:[EMAIL PROTECTED]] Gesendet: Freitag, 16. November 2001 12:04 An: ASP Diskussionsliste fuer Anfaenger Betreff: [aspdebeginners] ASP Redaktionssystem mit DB Anbindung Hallo, ich habe folgendes Problem: Ich habe mir eine Eingabeseite gebaut die von den <form> tags eingeklammert ist. Die Felder darin (title, content, name, surname) sollen nach dem 'Submitten' in eine Datenbank in bestimmte Felder gespeichert werden. Auf einer anderen Seite, sollen s�mtliche Eintr�ge aufgelistet werden. Der aktuellste soll ausserdem gesondert oben (mit bestimmten Schl�sselw�rtern, die ich in der Eingabeseite ausw�hlen konnte, fett gedruckt) ausgegeben werden. Ich habe leider keine richtige Dokumentation in Buchform �ber ASP, VBScript und Co. daher versuche ich es mir �ber das Internet bei zu bringen. hmm... nicht nur halbwegs erfolgreich, leider... Kann mir nun jemand ein kleines Script zur Verf�gung stellen in der eine Zeile enthalten ist, wie ich das Formular �ber nehme (request.form ?) und in die DB schreibe (nach dem letzten Eintrag)... Vielen Dank, mfG Mirco | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
