ASP Afrage mit SQL

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • ASP Afrage mit SQL

    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.

    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	
    		%>

  • #2
    *VERSCHIEB* nach asp
    INFO: Erst suchen, dann posten![color=red] | [/color]MANUAL(s): PHP | MySQL | HTML/JS/CSS[color=red] | [/color]NICE: GNOME Do | TESTS: Gästebuch[color=red] | [/color]IM: Jabber.org |


    Kommentar

    Lädt...
    X