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...