Upload ?

Alltså! Jag sitter och vill kunna ladda upp TILL en databas. Använder ASP och klarar det grundläggande. Jag kan till och med få ASP Upload att fungera men några saker jag behöver kunna göra klarar jag inte att klura ut själv.

Ska försöka förklara det:
1. Jag har 1 databas gjord i Access
2. Där har jag 2 tabeller en "Agenda" som håller information om tävlingar, när de ska spelas, ska ha en länk till den andra tabellen som heter "Upload" och som ska innehålla filerna som jag ska ladda upp. Det rör sig om html filer, och jag kan inte hitta något sätt att öppna filerna i explorer direkt utan det verkar som om man måste "ladda ner" filerna.

Hur tusan ska jag göra ? för jag måste ju ha båda tabellerna öppna rs1 och rs2 typ.
Så varje "tävlings id" ska bindas ihop med ett "fil id".

Så här ser uppladdningen ut och den fungerar bra, men jag vill lägga till en hyperlänk i tabellen "Mall och (Fältnamn) Resultat samtidigt som jag kör uppladdningen nedan till tabellen "Upload"

<%
		Select Case Request("cmd")

		Case ""

	%>
	<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload2.asp?cmd=upload">
		File:<BR><INPUT TYPE=FILE NAME="fil"><P>
	<INPUT TYPE=SUBMIT VALUE="Upload!">
	</FORM>

<%
		Case "upload"

Set Upload = Server.CreateObject("Persits.Upload")

Upload.SetMaxSize 100000, True

Count = Upload.Save

Set File = Upload.Files("fil")

If Not File Is Nothing Then

	Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\databas\wbbas.mdb")

   Set rs = Server.CreateObject("adodb.recordset")

   'Optional: check whether this file already exists using MD5 hash
   Hash = File.MD5Hash
   rs.Open "SELECT * from Upload WHERE Hash='" & Hash & "'", Connect, 2, 3
   If Not rs.EOF Then
      Response.Write "This file already exists in the database."
      Response.End
   End If
   rs.Close

   ' Reopen recordset to insert file
   rs.Open "Upload", Connect, 2, 3

   rs.AddNew
   rs("UdBlob") = File.Binary
   rs("UdNamn") = File.FileName
   rs("UdStorlek") = File.Size
   rs("hash") = Hash
   rs.Update

   Response.Write "File saved."
Else
   Response.Write "File not selected."
End If

Länken kommer se ut så här:
<A HREF="download.asp?UdId=1">Resultat</A>

och använda sig av Scriptet download.asp som ser ut så här:

<%
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\databas\wbbas.mdb")
Set db = Server.CreateObject("ADODB.Connection")
db.Open Connect
SQL = "SELECT * FROM Upload where UdId = " & Request("UdId")
Set rs =db.Execute( SQL )
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment;filename=" & Trim(rs("UdNamn"))
Response.AddHeader "Content-Length", rs("UdStorlek")
Response.BinaryWrite rs("UdBlob")
%>

Tabellen Mall har ju ett Id-Fältnamn och ett Resultat-Fältnamn som har Datatypen Hyperläng, hur lägger jag till en hyperlänk i tabell1 när jag laddar upp i Tabell2 ?

Jag stänger den här tråden då den är korspostad: http://webforum.aleborg.com/forum/showthread.php?s=&threadid=37666 i ASP-forumet.