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
