Ich habe ein Formular bei dem ich Werte und den namen übergebe, nun möchte ich wenn der Name schon in der DB ist, die Werte aktualisieren, wenn der name noch nicht exisitiert die Werte Speichern, was muss ich da bei diesem Code ändern dass es stimmt.
Name: In der Tabelle heist das Feld name und auch im Formular heisst es name. Übergeben wird mit post.
Name: In der Tabelle heist das Feld name und auch im Formular heisst es name. Übergeben wird mit post.
Code:
<% formular = request.queryString("formular") IF isNumeric(formular) THEN IF formular = 1 THEN strSQL = "Select * FROM tblfarbe Where name = "& "name" Set be = Server.CreateObject("ADODB.Recordset") be.Open strSQL, db_heiniger, 2, 3, 1 IF "name" = be.Fields("name") THEN IF be.Supports (adUpdate) THEN be.Fields("name") = Request.Form("name") be.Fields("farbe1") = Request.Form("farbe1") be.Fields("farbe2") = Request.Form("farbe2") be.Fields("kontakt2button") = Request.Form("kontakt2button") be.Fields("farbe3") = Request.Form("farbe3") be.Fields("farbe4") = Request.Form("farbe4") be.Fields("farbe5") = Request.Form("farbe5") be.Fields("farbe6") = Request.Form("farbe6") be.Fields("farbe7") = Request.Form("farbe7") be.Update ELSE Response.Write("<h2>Es ist ein Fehler aufgetreten !</h2>") END IF ELSE IF be.Supports (adUpdate + adAddNew) THEN be.AddNew be.Fields("name") = Request.Form("name") be.Fields("farbe1") = Request.Form("farbe1") be.Fields("farbe2") = Request.Form("farbe2") be.Fields("kontakt2button") = Request.Form("kontakt2button") be.Fields("farbe3") = Request.Form("farbe3") be.Fields("farbe4") = Request.Form("farbe4") be.Fields("farbe5") = Request.Form("farbe5") be.Fields("farbe6") = Request.Form("farbe6") be.Fields("farbe7") = Request.Form("farbe7") be.Update END IF END IF be.Close Set be = Nothing END IF END IF %>
Kommentar