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ä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ö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>
- [aspdebeginners] SQL-Anweisung Markus Schutz
- [aspdebeginners] sql-anweisung one
- one
