Querystring findes hvor?
Hej.Jeg har noget kode hvor jeg uploader nogle filer til serveren og tilføjer noget til databasen...
Herefter skal jeg ved hjælp af en querystring bruge noget fra databasen som jeg lige har tilføjet til databasen ved hjælp af denne querystring: (filnavn)
Men jeg får intet ud af databasen (Er det fordi den er lukket på dette sted eller hvad går der galt? Der ligger tekst i filnavn i databasen)
Det er med dette jeg gør det:
<META HTTP-EQUIV=Refresh CONTENT="1; URL=http://www.domaine.dk/upload.aspx?navn=<%=rs("filnavn")%>">
Her er koden:
<%
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("/dben"))
%>
<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"), "'", "''")
strspil = 1
stroverskrift = Replace(Upload.Form("spiln"), "'", "''")
strnews = Replace(Upload.Form("news"), "'", "''")
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("/datadb/db.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 &"', moviekategori = '"& strmoviekategori &"', visnyhed = '"& strnews &"', overskrift = '"& stroverskrift &"', spil = '"& strspil &"' WHERE id = "& Session("senesteid") &""
Conn.Execute(strUpdate)
Session("senesteid") = ""
%>
<META HTTP-EQUIV=Refresh CONTENT="1; URL=http://www.xxx.dk/upload.aspx?navn=<%=rs("filnavn")%>">
<%
End If
Next
End If
%>
Mvh.
Henrik
