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