Stäng av friendly error messages i IE, eller byt till Firefox/Opera.
Ett fel som syns direkt är att du använder "file.FileName", men "file" definieras inte. Antagligen ska det bytas till mySmartUpload.Files.Item(1).FileName
1 svar · 301 visningar · startad av Boorg
Tja...
Har samma problem med att inte kunna köra sidan så att jag får några felmedelanden, det enda som står är att det inte kunde köras, men inga medelanden.
<form method="POST" action="Data.asp?w=Isbil" ENCTYPE="multipart/form-data">
<A>Bilden</A><br>
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<A>Bildtext</A><br>
<textarea cols="50" rows="10" name="Info" style="font-size: 8pt; font-family: verdana, arial"></textarea>
<input class="knapp1" type="submit" value="Skicka!">
</form>
Set Connect = Server.CreateObject( "Adodb.Connection" )
Connect.Provider = "Microsoft.Jet.OLEDB.4.0"
MdbFilePath = Server.MapPath( "../db/sk.mdb" )
Connect.ConnectionString = "Data Source='" & MdbFilePath & "'"
Connect.open
Namn = replace(Request.QueryString("w"), "'", "''")
Text = replace(Request.Form("Text"), "'", "''")
' Variables
' *********
Dim mySmartUpload
Dim intCount
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
intCount = mySmartUpload.Save("bilder/" & Namn & "/")
' sample with a physical path
' intCount = mySmartUpload.Save("c:\temp\")
' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.")
' Response.Write(MyUpLoad.Files.Item(1).FileName)
Connect.Execute("INSERT INTO sk (Namn,Bild,Text) Values('" & Namn & "','" & file.FileName & "','" & Text & "') ")
' Response.Redirect("Start.asp")
Börjar bli smått galen på detta nu. Har sidan på cliche och det är där jag lägger upp och testar...
Stäng av friendly error messages i IE, eller byt till Firefox/Opera.
Ett fel som syns direkt är att du använder "file.FileName", men "file" definieras inte. Antagligen ska det bytas till mySmartUpload.Files.Item(1).FileName