guten morgen :-)

ich glaub ich geb langsam auf... *seufz
trotz einigen n�tzlichen tipps kreig ich das l�cherliche sql-update nicht zum laufen.
die fehler sind noch immer die selben. ich bin jedoch 100% sicher dass das update-statement ausgef�hrt wird. wenn ich dies durch zb ein "alter table" ersetze dann f�hrts dies aus.
ich hab unten einfachmal das ganze script angeh�ngt und hoffe auf einen ganz ganz schlauen rat von euch. ganz herzlichen dank daf�r :-)

nochaml kurz den fehlerbeschreib:

es wird einfach keinen eintrag in die db vorgenommen obwohl ein datensatz
existiert welcher meiner bedingung entspricht. wenn ich die ausgabe im
access auszuf�hren versuche will er parameter zu "beschrieb" und
"mailadresse" haben. wenn ich dies eingegeben hab (zum test), motzt das
access "beschrieb kann nicht aktualisiert werden; feld nicht
aktualisierbar".

wenn ich die variable mit der anweisung ausgeben lasse erhalte ich folgendes:

UPDATE guestbook SET image = 'test.jpg', beschreib = 'das bin ich' where mailadresse = '[EMAIL PROTECTED]'


liebe gr�sse vom one burghold

*********************************************************************

und hier das ganze script:


<%@LANGUAGE="VBSCRIPT"%>

<%
Option Explicit
Dim objUpload, strUploadPath, strMsg, strFileExtensions, mailadresse, nameConn, sql_store

'abfrage der mailadresse um das foto dem entsprechenden user zuweisen zu k�nnen
        mailadresse = Request.QueryString("mailadresse")

'datenbankverbindung aufbauen
                SET nameConn = Server.CreateObject("ADODB.Connection")
                nameConn.Open "test"

'create the ActiveX object
Set objUpload = Server.CreateObject("ASPUploadComponent.cUpload")


'set the upload path
'***You will need to change this!***
strUploadPath = "E:\guestbook_pics\"

'set the file extensions to exclude
strFileExtensions = ".exe;.dll"

If objUpload.FieldExists("thefile") = False Then
    Response.Write "Invalid Post Data"
    Response.End
Else
    'file posted...
    'attempt to save the file
    On Error Resume Next
    objUpload.Form("thefile").SaveFile strUploadPath, objUpload.Form("thefile").Value, strFileExtensions
    If Err Then
        'an error occured... ie file already exists, invalid extension etc
        strMsg = "Error " & Err.Number & ": " & Err.Description
    Else
        'add description to the database?
               
                strMsg = "cool... dein file ist angekommen und wird ins g&auml;stebuch gepflanzt."
                sql_store = "UPDATE guestbook SET image = '" & objUpload.Form("thefile").Value & "', beschreib = '" & objUpload.Form("description").Value  & "' where mailadresse = '"& mailadresse &"'"
                nameConn.Execute(sql_store)
               
    End If
End If
%>
<html>
<head>
<title>File Upload Complete</title>
</head>
<body bgcolor="#151515" text="#909090" link="#909090" vlink="#909090" alink="#909090"><p><br>
<p><font face="Verdana" size="2"><%= strMsg %>
<p><b>file name:</b> <%=objUpload.Form("thefile").Value%><br>
   <b>file gr&ouml;sse:</b> <%=objUpload.Form("thefile").FileSize%><br>
   <b>filetype:</b> <%=objUpload.Form("thefile").ContentType%><br>
   <b>beschrieb:</b> <%=objUpload.Form("description").Value%></p>
   so und jetzt kannst du dein werk <a href="
http://www.onesworld.ch/sites/guestbook_out.html" target="main"><b>hier</b></a> ansehn.
</body>
</html>

| 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

Antwort per Email an