JeppewebMedlem sedan sep. 2006462 inläggHm, känns som om jag bara förstör mer o mer, men here it goes :p
Error Type:
ADODB.Connection.1 (0x80004005)
SQLState: 4 Native Error Code: 1064 [TCX][MyODBC]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '[vems], [datum], [filename]) VALUES(,#10/25/2006 1:18:52 PM#,'j
/outputfile2.asp, line 64
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
SQL = "SELECT bild,vems FROM fotoalbum WHERE id = "&Session("cmid")
Set RecSet = Connect.execute(SQL)
bild = filename
vems = cmid
Connect.Execute("UPDATE fotoalbum set bild = '"& bild &"', vems = '"& vems &"' WHERE id = "&Session("cmid")&"")
Datum = Now
[b]SQL = "INSERT INTO fotoalbum ([vems], [datum], [filename]) VALUES(" & vems & ",#"& datum &"#,'" & filename & "')"
Connect.Execute(SQL)[/b]
%>
jonneMedlem sedan jan. 20011 154 inläggBörja med att skriva ut din SQL variabel eftersom det är den som är ursprunget till felet:
SQL = "INSERT INTO fotoalbum ([vems], [datum], [filename]) VALUES(" & vems & ",#"& datum &"#,'" & filename & "')"
Response.Write SQL
Connect.Execute(SQL)
Så ser du att den innehåller det du förväntar dig. Om den inte gör det så har du ett ställe att utgå ifrån och leta dig tillbaka.
Har du föresten ändrat det ovanstående nu för "bild" och "vems" som du hade fel på innan eller är detta koden du kör med? Du hade
SQL = "SELECT bild,vems FROM fotoalbum WHERE id = "&Session("id")
Set RecSet = Connect.execute(SQL)
bild = cStr(RecSet("filename"))
vems = cLng(RecSet("userid"))
innan som du fick fel på eller rättade du till det? (filename och userid kolumnen saknas i den select-satsen)
JeppewebMedlem sedan sep. 2006462 inlägg Sådär, skrev ut det och fick nu det här meddelandet;
Request object error 'ASP 0207 : 80004005'
Cannot use Request.Form
/outputfile2.asp, line 183
Cannot use Request.Form collection after calling BinaryRead.
-
line 183 finns ju inte ens ?
JeppewebMedlem sedan sep. 2006462 inlägg <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<!-- #include file="databaskopplingar.asp" -->
<html>
<head>
<title>Upload</title>
</head>
<body>
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'Exempel på hur man kan 'plocka ner' andra forumlärelement
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.Serv erVariables("PATH_INFO")),pathEnd)&filename)
filename = session("cmalias") & "_" & filename
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/fotoalbum" & "\" & filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
SQL = "SELECT bild,vems FROM fotoalbum WHERE id = "&Session("id")
Set RecSet = Connect.execute(SQL)
bild = filename
vems = cLng(RecSet("userid"))
Connect.Execute("UPDATE fotoalbum set bild = '"& bild &"', vems = '"& vems &"' WHERE id = "&Session("cmid")&"")
Datum = Now
SQL = "INSERT INTO fotoalbum ([vems], [datum], [filnamn]) VALUES(" & vems & ",#"& Datum &"#,'" & filename & "')"
Response.Write SQL
Connect.Execute(SQL)
%>
<!--#include file="upload.asp"-->
