Hej, här kommer koden också. Jag tror det är något som rör till sig när jag både vill plocka ut text ur fält och ladda upp filer samt att jag vill ha in filnamnet i databasen.
/ Jan.
Formkoden jag använder, lite förenklad utan tabeller:
<form name="SKRIV" method="post" action="adderaPost.asp">
<b>Namn</b> <input type="text" name="namn" size="30" maxlength="20"><br>
<b>Epost</b> <input type="text" name="epost" size="30" maxlength="50"><br>
<b>Rubrik</b> <input type="text" name="rubrik" size="30" maxlength="40" ><br>
<b>Ljudfil</b> <input type="FILE" name="file" size="25">
<b>Inlägg</b><br>
<textarea name="inlagg" cols="40" rows="10"></textarea>
<input type="submit" name="Submit" value="Posta">
</form>
adderaPost.asp ser sedan ut ungefär så här:
'########## Ladda upp fil på servern med kod här nedan.
On Error Resume Next
' Variables
' *********
Dim mySmartUpload
Dim intCount
Dim file
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Only allow these files
' ***************************
mySmartUpload.AllowedFilesList = "qcp,mp3"
' Deny physical path
' *******************
mySmartUpload.DenyPhysicalPath = True
' *****************************************
mySmartUpload.MaxFileSize = 400000
' ***************************************************************
mySmartUpload.TotalMaxFileSize = 400000
' Upload
' ******
mySmartUpload.Upload
' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
intCount = mySmartUpload.Save("../upload/ljudfiler")
' sample with a physical path
' intCount = mySmartUpload.Save("c:\temp\")
' Trap errors
' ***********
If Err Then
Response.Write("<b>Fel : </b>" & Err.description)
Else
' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.")
End If
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/ljudforum.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From ljudforum"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet.ADDNEW
RecSet("NAMN") = Request.Form("namn")
RecSet("EPOST") = Request.Form("epost")
RecSet("RUBRIK") = Request.Form("rubrik")
RecSet("INLAGG") = Request.Form("inlagg")
RecSet("IP") = Request.ServerVariables("REMOTE_ADDR")
RecSet("DATUM") = NOW()
RecSet("LJUDFIL") = file.FileName
IF Request.QueryString("refID") <> "" THEN
RecSet("REF_ID") = Request.QueryString("refID")
END IF
RecSet.UPDATE
RecSet.CLOSE
mySmartUpload.CLOSE
