Tilføj til database trods ikke udfyldte felter
Jeg har følgende script hvor mine brugere kan uploade et billede eller et videoklip.Problemet er at alt skal udfyldes før teksten tilføjes i databasen. Jeg vil gerne have at det der er blevet udfyldt kommer i databasen, selvom der er nogle felter der ikke er udfyldt.
Nogle der kan hjælpe mig?
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Server.ScriptTimeout = 2200
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 10048576 ' 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>
<h2>"<% = Err.Description %>"</h2>
</FONT>
<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Please <A HREF="aspupload.asp">try again</A>.
</FONT>
<% Else %>
<h2>Success! <% = Count %> file(s) have been uploaded.</h2>
</FONT>
<% For Each File in Upload.Files
filename = File.FileName %>
<TD><B><% = File.OriginalPath %></B></TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>
<%
t = t + 1
strbeskrivelse = Replace(Upload.Form("spilbesk"), "'", "''")
path = file.originalpath
strspil = 1
stroverskrift = Replace(Upload.Form("spiln"), "'", "''")
strnews = Replace(Upload.Form("news"), "'", "''")
strkategori = Replace(Upload.Form("kategori"), "'", "''")
strmoviekategori = Replace(Upload.Form("spilkat"), "'", "''")
' Tilfojer til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("myupload.mdb")
Conn.Open DSN
If t = 1 Then
strSQL = "INSERT INTO seneste (pic) VALUES ('"& File.Filename &"')"
Conn.Execute(strSQL)
set sID = Conn.Execute("SELECT @@IDENTITY AS NewID")
Session("senesteid") = sID("NewID")
Else
strUpdate = "UPDATE seneste SET filnavn = '"& File.Filename &"', beskrivelse = '"& strbeskrivelse &"', flashnavn = '"& path &"', kategori = '"& strkategori &"', moviekategori = '"& strmoviekategori &"', visnyhed = '"& strnews &"', overskrift = '"& stroverskrift &"', spil = '"& strspil &"' WHERE id = "& Session("senesteid") &""
Conn.Execute(strUpdate)
Session("senesteid") = ""
End If
Next
End If
%>
