problemer med if og aspupload
Jeg har et problem ved min if sætning :
Hvis upload.files er udfyldt, altså forskellige fra blank, så gemmer den fint i databasen, men hvis upload.files ikke er udfyldt og den derfor burde gå i else opdateres databasen aldrig.
Jeg har forsøgt at skrive SQL linjen ud efter if sætningen og den er kun udfyldt hvis der er noget i upload.files
Hvad er der galt?
if Upload.Files <> "" then
For Each File in Upload.Files
filename = File.FileName
sql = "INSERT INTO Biler (medlemsnr,mrkkode,mrkmodel,fregdato,regdato,farvekode,farve,stand,bemrk,profillink) values ('" & medlemsnr & "','" & mrkkode & "','" & mrkmodel & "','" & fregdato & "','" & regdato & "','" & farvekode & "','" & farve & "','" & stand & "','" & bemrk & "','images/" & filename &"')"
set rs = dbc.Execute(sql)
next
else
sql = "INSERT INTO Biler (medlemsnr,mrkkode,mrkmodel,fregdato,regdato,farvekode,farve,stand,bemrk,profillink) values ('" & medlemsnr & "','" & mrkkode & "','" & mrkmodel & "','" & fregdato & "','" & regdato & "','" & farvekode & "','" & farve & "','" & stand & "','" & bemrk & "','images/fotografen.jpg')"
set rs = dbc.Execute(sql)
END IF
Den fulde kode herunder:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/images"))
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<CENTER>
<% If Err <> 0 Then %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<H3>The following error occured while uploading:</h3>
</FONT>
<FONT SIZE=3 FACE="Arial" COLOR=#FF2020>
<h2>"<% = Err.Description %>"</h2>
</FONT>
<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Please <A HREF="biler_view.asp">try again</A>.
</FONT>
<% Else %>
<!-- #include file="db.inc" -->
<%
medlemsnr=session("UserID")
mrkkode=Upload.form("mrkkode")
mrkmodel=Upload.form("mrkmodel")
fregdato=Upload.form("fregdato")
regdato=Upload.form("regdato")
farvekode=Upload.form("farvekode")
farve=Upload.form("farve")
stand=Upload.form("stand")
bemrk=Upload.form("bemrk")
if Upload.Files <> "" then
For Each File in Upload.Files
filename = File.FileName
sql = "INSERT INTO Biler (medlemsnr,mrkkode,mrkmodel,fregdato,regdato,farvekode,farve,stand,bemrk,profillink) values ('" & medlemsnr & "','" & mrkkode & "','" & mrkmodel & "','" & fregdato & "','" & regdato & "','" & farvekode & "','" & farve & "','" & stand & "','" & bemrk & "','images/" & filename &"')"
set rs = dbc.Execute(sql)
next
else
sql = "INSERT INTO Biler (medlemsnr,mrkkode,mrkmodel,fregdato,regdato,farvekode,farve,stand,bemrk,profillink) values ('" & medlemsnr & "','" & mrkkode & "','" & mrkmodel & "','" & fregdato & "','" & regdato & "','" & farvekode & "','" & farve & "','" & stand & "','" & bemrk & "','images/fotografen.jpg')"
set rs = dbc.Execute(sql)
END IF
End If
Conn.Close
Set Conn = Nothing
response.redirect "Biler_view.asp"
%>
</CENTER>
</BODY>
</HTML>
