Hjælp til artikler ønskes

Jeg har nogle færdige scripts til oprettelse af artikler, hvor man indtaster

overskrift (obligatorisk)
afsnitsoverskrift (valgfrit)
afsnit

Desuden har jeg et færdigt script (Dundas Upload), som kan uploade et billede, og det virker fint. Dundas-komponenten tildeler det uploadede billede unikke navne, som f.eks.

{6581CED6-EFD1-4B59-937D-8434880EE385}_billede01.jpg
{85BE5525-A866-4F01-B0FD-4BB62FE587D2}_billede02.jpg

Nu vil jeg gerne kunne kombinere de to scripts således, at man kan:

- vælge hvilken kategori (hvilket tema) artiklen skal høre under (er i orden)
- indtaste overskrift (obligatorisk - er i orden)
- indtaste manchettekst (valgfrit - er i orden)
- indtaste afsnitsoverskrift (valgfrit - er i orden)
- indtaste afsnit (obligatorisk - er i orden)
- uploade et billede med det enkelte afsnit (valgfrit - er ikke i orden)
- vedhæfte billedtekst til det enkelte billede (valgfrit - er ikke i orden)


OPRETTELSE AF ARTIKEL OG MANCHETTEKST:

<span class="o24 headline">Opret ny artikel</span><br><br><br>

<%
If Request.Form("T1") <> "" AND Request.Form("D1") <> 0 Then

    SQL = "INSERT INTO articles (UserID, Artikel_Overskrift, Artikel_Manchet, Artikel_Dato, Artikel_Tid, TemaID) VALUES ('" & Session("userid") & "', '" & SQLEncode(Request.Form("T1")) & "', '" & SQLEncode(Request.Form("S1")) & "', '" & Day(date) & "/" & Month(date) & "/" & Year(date) & "', '" & Time & "', '" & Request.Form("D1") & "')"
    Conn.Execute SQL

    Dim ID
    ID = Conn.Execute("SELECT MAX(articleID) As NewID FROM articles").Fields("NewID")
    Response.Redirect "afsnit_rediger.asp?ID=" & ID

Else

    If Request.QueryString("type") <> "opret" then

        SQL = "SELECT * FROM Temaer ORDER BY Tema_Navn"
        Set RS = Conn.Execute(SQL)
%>

        <form method="POST" action="artikel_opret.asp?type=opret" name="frmAddArticle">
            <span class="tekst11"><b>Overskrift:</b></span><br>
            <input type="text" tabindex="1" name="T1" size="<%=Size%>" value="" class="input"><br><br>
            <span class="tekst11"><b>Manchettekst:</b></span><br>
            <textarea tabindex="2" rows="<%=TXTrows%>" name="S1" cols="<%=TXTCols%>" class="input"></textarea><br><br>
            <select size="1" tabindex="3" name="D1" class="input">
                <option value="0">Vælg tema (obligatorisk)</option><br><br>

            <% Do Until RS.EOF %>

                <option value="<%=RS("TemaID")%>"><%=RS("Tema_Navn")%></option><br><br>

            <%
            RS.Movenext
            Loop
            %>

            </select><br><br>
            <input type="submit" tabindex="4" value="Opret artikel" name="B1" class="input1">
        </form>

<%
    Else
        Conn.Close
        Set Conn = Nothing
        Response.Redirect "/error.asp?msg=Både+overskrift+og+tema+skal+udfyldes."
    End if
End if
%>


OPRETTELSE AF AFSNITSOVERSKRIFT OG AFSNIT:

<span class="o24 headline">Opret afsnit</span>

<%
If Request.Form("S1") <> "" then
    SQL = "INSERT INTO Afsnit (articleID, Afsnit_Overskrift, Afsnit_Tekst, Afsnit_Dato, Afsnit_Tid) VALUES ('" & Request.QueryString("ID") & "', '" & Request.Form("T1") & "', '" & Request.Form("S1") & "', '" & Date() & "', '" & Time() & "')"
    Set RS = Conn.Execute(SQL)
    Response.Redirect "afsnit_rediger.asp?id=" & Request.QueryString("ID")
Else
If Request.QueryString("type") <> "opret" Then
%>

<form method="POST" action="afsnit_opret.asp?type=opret&id=<%=Request.QueryString("ID")%>" name="frmAddChapter">
    <b>Afsnittets overskrift:</b><br>
    <input type="text" tabindex="1" name="T1" size="<%=Size%>" value="" class="input"><br><br>
    <b>Indtast afsnittet:</b><br>
    <textarea tabindex="2" rows="<%=TXTrows%>" name="S1" cols="<%=TXTcols%>" class="input"></textarea><br><br>
    <input type="submit" tabindex="3" value="Opret afsnit" name="B1" class="input1">
</form>

<% Else %>

<span class="tekst11r">Begge felter skal udfyldes - artiklen er ikke blevet oprettet!</span>

<%
End if
End if
%>

<a href="afsnit_rediger.asp?id=<%=Request.QueryString("id")%>" onFocus="this.blur()">Tilbage til hovedsiden for afsnit</a>


UPLOAD AF BILLEDER:

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
sti = "/images"

On Error Resume Next

Set oUpload = Server.CreateObject ("Dundas.Upload.2")
'Gemmer filen
oUpload.Save  Server.Mappath(sti) & "\"

If Err.Number <> 0 Then 
    Response.Write err.description & "<br>"
    Set oUpload = Nothing
    Response.End
End If

Set oUploadedFile = oUpload.Files(0)

sFileName = oUploadedFile.OriginalPath
nExtStartPos = InStrRev(sFilename, "\")
If nExtStartPos > 0 Then sFileName = Trim(Mid(sFilename, nExtStartPos + 1))


'Evt for test udskriv filnavnet:

Response.Write sFileName

end if
%>

<form method="post" action="/admin/articles/upload2.asp" EncType="Multipart/Form-Data">
    <input name="upload" type="file"><br><br>
    <input type="submit" value="Upload billede" name="B1">&nbsp; <input type="reset" value="Nulstil" name="B2">
</form>


Jeg ved der er meget. Håber på velvillighed alligevel :o)