Vores samtale over MSN:
Tapre Ørn says:
ok rune den er sendt
Rune says:
Rune says:
hvor gammel er du
Rune says:
+?
Tapre Ørn says:
sådan den er nu opretter den forbindelse til en acces
Tapre Ørn says:
28
Rune says:
hm ok
Tapre Ørn says:
og dig?
Rune says:
*G* hvad tror du
Tapre Ørn says:
18?
Rune says:
nope
Tapre Ørn says:
Tapre Ørn says:
op eller ned?
Rune says:
ned
Tapre Ørn says:
lol
Tapre Ørn says:
du er jo et vidunderbarn
Rune says:
YEAH
Tapre Ørn says:
dem er der jo nogle af
Tapre Ørn says:
Rune says:
Tapre Ørn says:
kigger du på det?
Rune says:
yepper
Tapre Ørn says:
db.asp er min include
Rune says:
BTW, jeg er 17
Tapre Ørn says:
den er ikke included på sidernne
Tapre Ørn says:
ok
Rune says:
Det er vel her du vil ha' filnavnet smidt ind i DB'en right?=
Rune says:
oRs.AddNew
file.FileToField oRs.Fields("FILE")
oRs("FILENAME") = file.FileName
oRs.Update
intCount = intCount + 1
Tapre Ørn says:
ja
Rune says:
ok har du prøvet med:
Rune says:
oRs("FILENAME") = mySmartUpload.Form("FILE1") ?
Tapre Ørn says:
du misforstår
Tapre Ørn says:
det er forbindelsen til MySQL der er problemet
Tapre Ørn says:
sådan som den er nu forbinder den til acces
Tapre Ørn says:
sql'en er der ikke noget i vejen med
Tapre Ørn says:
' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
curDir = Server.MapPath("\Radiatorfilm\done\Sample.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Tapre Ørn says:
især linjen :
Tapre Ørn says:
curDir = Server.MapPath("\Radiatorfilm\done\Sample.mdb")
Rune says:
Altså kommer den med en fejl?
Tapre Ørn says:
der henviser den til acces
Tapre Ørn says:
nej den kører nu
Tapre Ørn says:
men skal jo have den forbundet til MySQL
Rune says:
Øhh ja... Det har jeg jo oxo besvaret!
Tapre Ørn says:
nu kører den med acces
Tapre Ørn says:
nej!
Rune says:
Jov.. Inde på eksperten!
Tapre Ørn says:
nej
Rune says:
Kan ejg prøve at se den connection du bruger til din MySQL db?
Tapre Ørn says:
fordi min include fil db.asp
Tapre Ørn says:
der kan du se jeg forbinder til MySQL
Tapre Ørn says:
men det er ike nok
Tapre Ørn says:
den er i db.asp
Rune says:
2 sek
Rune says:
Ligger din MySQL server lokalt?
Tapre Ørn says:
jeps
Rune says:
ok
Rune says:
SQLserveradr="localhost"
SQLdatabase="test"
SQLlogin="jobba"
SQLpassword="jobba"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={mySQL}; Server=" & SQLserveradr & "; Option=16834; Database=" & SQLdatabase & "; uid="& SQLlogin &"; pwd="& SQLpassword;"
Rune says:
Den skal du hellere bruge!
Rune says:
Og du kan heller ikke bruge et recordset til at indsætte i en MySQL database... Det er ikke kommet endnu.. Så du er nødt til at indsætte det direkte vha. ren SQL!
Rune says:
oRs.AddNew
file.FileToField oRs.Fields("FILE")
oRs("FILENAME") = file.FileName
oRs.Update
Tapre Ørn says:
det er ikke det der er problemet for den virker jo på alle mine andre
Rune says:
Det skal være:
strSQL = "INSERT INTO tabel (filename) VALUES ('" & file.FileName & "')
Rune says:
hm
Rune says:
Jamen hvad er problemet???
Tapre Ørn says:
lol
Tapre Ørn says:
se her
Tapre Ørn says:
http://62.107.43.193/RadiatorFilm/Test/index.htmTapre Ørn says:
under login
Tapre Ørn says:
admin
Tapre Ørn says:
admin
Tapre Ørn says:
film/billeder
Tapre Ørn says:
uploade
Tapre Ørn says:
upload et
Tapre Ørn says:
og se fejlen
Rune says:
øhh hvor logger jeg ind henne?
Tapre Ørn would like to send you the file "upload.asp" (3 Kb). Transfer time is less than 1 minute with a 28.8 modem. Do you want to Accept (Alt+T) or Decline (Alt+D) the invitation?
Rune says:
ahh ok fandt det
Tapre Ørn says:
det er en ny upload fil jeg har lavet
Tapre Ørn says:
se den lige
Rune says:
ok
You have declined to receive file "upload.asp".
Rune says:
-send den til min mail... -jeg hader at få det over MSN!
Tapre Ørn says:
skulle det være et problem?
Tapre Ørn says:
men ok
Rune says:
Well jeg er meget imod Messenger! -Jeg hader det VIRKLIG!
Tapre Ørn says:
ja men du chatter jo i det lige nu og hvorfor kan du så ikke modtage en fil
Tapre Ørn says:
men ok det er ligemeget
Rune says:
fordi filerne ligger sig et sted hvor jeg glemmer dem da jeg ikke bruger MSN særlig meget...
Rune says:
Ok, ret linje 55 hvor der nu står:
oRS.ActiveConnection = objConn
Til
oRS.ActiveConnection = oConn
Tapre Ørn says:
lol
Tapre Ørn says:
havde jeg ike set
Rune says:
Tapre Ørn says:
done
Tapre Ørn says:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Invalid string or buffer length
/RadiatorFilm/Test/upload.asp, line 79
Rune says:
uploader du til Access elelr til MySQL nu?
Tapre Ørn says:
my
Rune says:
Som jeg sagde før, så kan det ikke lade sig gøre med et Recordset, du er nødt til at gøre det via ren SQL!
Tapre Ørn says:
ok
Tapre Ørn says:
men man kan godt til acces?
Rune says:
ja
Tapre Ørn says:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/RadiatorFilm/Test/upload.asp, line 76, column 71
strSQL = "INSERT INTO tabel (filename) VALUES ('" & file.FileName & "')
----------------------------------------------------------------------^
Rune says:
set oRS = Server.CreateObject("ADODB.Recordset")
oConn.Open dbConnString
oRS.ActiveConnection = oConn
' Open a recordset
' ****************
strSQL = "SELECT FILENAME,FILE FROM TFILES"
Set oRs.Execute(strSQL)
' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then
Rune says:
strSQL = "INSERT INTO tabel (filename) VALUES ('" & file.FileName & "')"
Rune says:
Du manglede et " tilsidst!
Rune says:
strInsert = "INSERT INTO TFILES (FILENAME) VALUES ('" & file.FileName & "')"
oConn.Execute(strInsert)
Tapre Ørn says:
Microsoft VBScript compilation (0x800A03F3)
Expected '='
/RadiatorFilm/Test/upload.asp, line 60, column 23
Set oRs.Execute(strSQL)
----------------------^
Rune says:
Sorry:
Rune says:
strSQL = "SELECT FILENAME,FILE FROM TFILES"
Set oConn.Execute(strSQL)
Tapre Ørn says:
Microsoft VBScript compilation (0x800A03F3)
Expected '='
/RadiatorFilm/Test/upload.asp, line 60, column 25
Set oConn.Execute(strSQL)
------------------------^
Rune says:
Hmm jeg skulle vidst ha' gået tideligere i seng i går
strSQL = "SELECT FILENAME,FILE FROM TFILES"
Set oRs = oConn.Execute(strSQL)
Tapre Ørn says:
nu brokker den sig ikke mere men den uploader ikke en skid
Rune says:
uploadede den før?
Tapre Ørn says:
ja da
Rune says:
hmmm Det lyder underligt! -Der er jo ik' lavet noget om!
Tapre Ørn says:
alt virkede før
Tapre Ørn says:
men den addede bare til acces
Rune says:
Rune says:
Ok, uploader den til MySQL db'en nu?
Tapre Ørn says:
nej
Rune says:
og den uploader heller ik' filen?
Tapre Ørn says:
og den uploader heller ikke til bib i roden
Rune says:
Prøv lige med dette:
Rune says:
FUUUUUCK hvor jeg hader MSN!!!!!!
Rune says:
For each file In mySmartUpload.Files
Response.Write("test" & "<br>")
' Only if the file exist
' **********************
If not file.IsMissing Then
' Add the current file in a DB field
' **********************************
file.FileToField oRs.Fields("FILE")
strInsert = "INSERT INTO TFILES
Rune says:
altså sæt en Response.Write() ind i din For løkke!
Tapre Ørn says:
og hvad skulle det hjælpe?
Tapre Ørn says:
ok nu uploader den billedet
Tapre Ørn says:
men den skriver ikke til db
Rune says:
hm
Rune says:
' Add the current file in a DB field
' **********************************
file.FileToField oRs.Fields("FILE")
strInsert = "INSERT INTO TFILES (FILENAME) VALUES ('" & file.FileName & "')"
Response.Write(strInsert)
Response.End()
Rune says:
Prøv lige sådan
Tapre Ørn says:
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/RadiatorFilm/Test/upload.asp, line 72
Rune says:
' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then
' Add the current file in a DB field
' **********************************
file.FileToField oRs.Fields("FILE")
strInsert = "INSERT INTO TFILES (FILENAME) VALUES ('" & file.FileName & "')"
Response.Write(
Rune says:
*GRAAAAA*
Rune says:
strInsert = "INSERT INTO TFILES (FILENAME) VALUES ('" & file.FileName & "')"
Response.Write(strInsert)
Response.End()
'oConn.Execute(strInsert)
intCount = intCount + 1
Tapre Ørn says:
test
INSERT INTO TFILES (FILENAME) VALUES ('Image-23.JPG')
Tapre Ørn says:
den skriver dette efter upload
Tapre Ørn says:
den uploader men skriver ikke til db
Rune says:
' Add the current file in a DB field
' **********************************
file.FileToField oRs.Fields("FILE")
strInsert = "INSERT INTO TFILES (FILENAME) VALUES ('" & file.FileName & "')"
Response.Write(strInsert)
'oConn.Execute(strInsert)
intCount = intCount + 1
Tapre Ørn says:
Error Type:
ADODB.Field (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/RadiatorFilm/Test/upload.asp, line 71
Rune says:
If not file.IsMissing Then
' Add the current file in a DB field
' **********************************
file.FileToField oRs.Fields("FILE")
strInsert = "INSERT INTO TFILES (FILENAME) VALUES ('test.asp')"
Response.Write(strInsert)
oConn.Execute(strInsert)
intCount = intCount + 1
End If
Tapre Ørn says:
Error Type:
ADODB.Field (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/RadiatorFilm/Test/upload.asp, line 71
Rune says:
hvad er det du prøve at gøre her?:
file.FileToField oRs.Fields("FILE")
Tapre Ørn says:
ikke mig der har lavet koden
Tapre Ørn says:
det er aspsmartuploads standard kode
Rune says:
' Add the current file in a DB field
' **********************************
'file.FileToField oRs.Fields("FILE")
strInsert = "INSERT INTO TFILES (FILENAME) VALUES ('test.asp')"
Response.Write(strInsert)
oConn.Execute(strInsert)
intCount = intCount + 1
End If
Tapre Ørn says:
så skriver den:
INSERT INTO TFILES (FILENAME) VALUES ('test.asp')Upload af billede succesfuld.
Rune says:
If not file.IsMissing Then
' Add the current file in a DB field
' **********************************
'file.FileToField oRs.Fields("FILE")
strInsert = "INSERT INTO TFILES (FILENAME) VALUES ('" & file.FileName & "')"
Response.Write(strInsert)
oConn.Execute(strInsert)
intCount = intCount + 1
End If
Tapre Ørn says:
INSERT INTO TFILES (FILENAME) VALUES ('Image-07.JPG')Upload af billede succesfuld.
Rune says:
ok, virker alt som det skal nu=
Rune says:
= = ?
Tapre Ørn says:
hmm
Tapre Ørn says:
den skriver
INSERT INTO TFILES (FILENAME) VALUES ('Image-07.JPG')Upload af billede succesfuld.
Rune says:
øhh ja, men uploadede den filen, og skrev den idatabasen?
Tapre Ørn says:
jepper
Rune says:
;o)
Tapre Ørn says:
har du uploadet en sample?
Rune says:
yeah
Tapre Ørn says:
okie
Tapre Ørn says:
men tak det spiller
Rune says:
Anytime
//>Rune
