hjælp til at samle to filer til en

Hej...

Jeg har en side hvor man kan nogen forskellige ting.
blandt andet oploade en fil
og gemme noget data

jeg har kun kunnet finde ud af hvordan man laver opload siderne hver for sig: den til filen og den til resten

Er der nogen der kan sætte dem sammen så de virker... jeg kan ikke :(

De kommer her:

<-- gemfil.asp --> (filen)
<%
'On Error Resume Next

'  Variables
'  *********
  Dim mySmartUpload
  Dim intCount
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow txt or htm files
'  ***************************
  mySmartUpload.AllowedFilesList = "jpeg,jpg,gif"
  mySmartUpload.DeniedFilesList = "exe,bat,asp,php,htm,html,com"

'  Only allow files smaller than 50000 bytes
'  *****************************************
  mySmartUpload.MaxFileSize = 50000

'  Upload
'  ******
  mySmartUpload.Upload


'  Trap errors
'  ***********
  If Err Then
      Response.Write("<b>Wrong selection : </b>" & Err.description)
      Response.End
  End If

  for each file in mySmartUpload.files
    If not file.IsMissing Then
   
    'Connecte til db:
    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.Mappath("../../../db/stylesheet.mdb")
    Conn.Open connstr

    rs.Open "SELECT * FROM config WHERE id = 1", conn, 1,3
    rs.update
  if strbackground_image = "" then

  else
    rs("background_image") = file.FileName
  end if
    rs.Update

    Response.Write "/" & file.Filename

    file.SaveAs "/" & file.Filename

   
    rs("background_image") = file.FileName
    rs.Update
    rs.Close
    Conn.Close
    end if
next
%>


<-- udseende --> (resten af dataen)
<%
'###################################################
'#                                                #
'#  Hjemmeside designet af:                      #
'#  DTL-Design v/Toste Lund                      #
'#  Http://dtl-design.dk - support@dtl-design.dk  #
'#  --------------------------------------------  #
'#  Siderne er copyrightbeskyttet og må ikke      #
'#  kopieres eller distribueres uden skriftlig    #
'#  aftale med DTL-Design                        #
'#                                                #
'###################################################
%>

<%
If Request.Form("Update") <> "" Then

    strbackground = Request.Form("background")
    strbackground_image = Request.Form("background_image")
    strbackground_color = Request.Form("background_color")

    strbacktable_td_align = Request.Form("backtable_td_align")
    strbacktable_td_valign = Request.Form("backtable_td_valign")
    strtable_width = Request.Form("table_width")
    strtable_height = Request.Form("table_height")



    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT * FROM config WHERE id = 1"
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../db/stylesheet.mdb")
    rs.Open strSQL, strDSN, 1, 3
    If NOT (rs.BOF Or rs.EOF) Then

        rs.update

        rs("background") = strbackground
    if rs("background_image") = "" then
   
    else
        rs("background_image") = strbackground_image
    end if
        rs("background_color") = strbackground_color

        rs("backtable_td_align") = strbacktable_td_align
        rs("backtable_td_valign") = strbacktable_td_valign
        rs("table_width") = strtable_width
        rs("table_height") = strtable_height
        rs.Update
    End If
    rs.Close
    Set rs = Nothing
    Response.Redirect("../udseende.asp")
End If
%>

Håber nogen kan hjælpe...