aspSmartUpload help me
Jeg har brug for hjælp med denne aspSmartUpload kode:Jeg har brug for en checkbox:
sample4.htm
-------------
<input type="checkbox" name="check1" value="valgt">
Som gør at man kan vælge om man vil tilføje et billede eller ej.
Det vil sige at hvis man ikke har nået billede skal findesikke.jpg vises. Hvis der deriomod er blevet blevet oploaded et tilfædigt billede så skal findesikke.jpg ikke vises.
Håber i forstå mig.
Jeg har meget brug for hjælpe til dette.
sample4.asp
-------------
<HTML>
<BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 4</H1>
<HR>
<%
' Variables
' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim oRs
Dim intCount
intCount=0
Session.LCID = 1030
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
' ******
intCount = mySmartUpload.Save("./upload")
' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
curDir = Server.MapPath("database.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
' Open a recordset
' ****************
strSQL = "SELECT * FROM Images"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open
' 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
' **********************************
oRs.AddNew
file.FileToField oRs.Fields("Filtype")
oRs("Images") = file.FileName
oRs("link") = mySmartUpload.form("link")
oRs("indhold") = mySmartUpload.form("indhold")
oRs("overskrift") = mySmartUpload.form("overskrift")
oRs("indledning") = mySmartUpload.form("indledning")
oRs("navn") = mySmartUpload.form("navn")
oRs("email") = mySmartUpload.form("email")
oRs("IP") = request.servervariables("REMOTE_ADDR")
oRs("dato") = now()
oRs.Update
intCount = intCount + 1
else
oRs.AddNew
oRs("Images") = "findesikke.jpg"
oRs("link") = mySmartUpload.form("link")
oRs("indhold") = mySmartUpload.form("indhold")
oRs("overskrift") = mySmartUpload.form("overskrift")
oRs("indledning") = mySmartUpload.form("indledning")
oRs("navn") = mySmartUpload.form("navn")
oRs("email") = mySmartUpload.form("email")
oRs("IP") = request.servervariables("REMOTE_ADDR")
oRs("dato") = now()
oRs.Update
End If
Next
' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.<BR>")
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
<p> </p>
</BODY>
</HTML>
