kode bliver ikke udført ved ENCTYPE="multipart/form-data

som regel kan man ikke request form når man også laver upload..

hvis du laver et objekt til upload.. kan du bruge det til at hente formen ..
hvis du har set myupload=server.createoblejct.....

så kan du hente formular indhold efter
myupload.upload

med if myupload.form("B1X")<>"" then ......

Kan man ikke skrive noget mere i for tagget for at snyde den ?

Eller skal det der "ENCTYPE="multipart/form-data" med

enctype skal med hvis du skal uploade filer... men .. det andet er nu rimelig nemt

det er smartaspupload

synes ikke det fungere helt

Den ser sådan ud

Kan du evt hjælpe med at rette til

<%
if request.Form("B1X") <> "" then

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db.mdb")

Dim mySmartUpload 'declare the component
Dim File 'declare the file to upload
Dim filename 'Temp filename

Set mySmartUpload= Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

For each file in mySmartUpload.Files
    file.SaveAs(Server.MapPath("doks/" &file.Filename))
    sql = "Insert into filer (menu, undermenu, underundermenu, link, linktekst) values('" & Replace(request.querystring("menu"), "'", "''") & "','" & Replace(request.querystring("undermenu"), "'", "''") & "','" & Replace(request.querystring("underundermenu"), "'", "''") & "','" & Replace(request.form("linktekst"), "'", "''") & "', & FileName)"
    Conn.Execute(sql)
Next

response.write "Her skal redirectes"
end if
%>

Prøv evt dette:

<%

Dim mySmartUpload 'declare the component
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

if mySmartUpload.Form("B1X") <> "" then

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db.mdb")

Dim File 'declare the file to upload
Dim filename 'Temp filename



mySmartUpload.Upload

For each file in mySmartUpload.Files
    file.SaveAs(Server.MapPath("doks/" &file.Filename))
    sql = "Insert into filer (menu, undermenu, underundermenu, link, linktekst) values('" & Replace(request.querystring("menu"), "'", "''") & "','" & Replace(request.querystring("undermenu"), "'", "''") & "','" & Replace(request.querystring("underundermenu"), "'", "''") & "','" & Replace(request.form("linktekst"), "'", "''") & "', & FileName)"
    Conn.Execute(sql)
Next

response.write "Her skal redirectes"
end if
%>

Det er vel ikke bare fordi der mangler nogle gåseøjne:

<form... ENCTYPE="multipart/form-data">

prøv denne her
<%

Dim mySmartUpload 'declare the component
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")



Dim File 'declare the file to upload
Dim filename 'Temp filename



mySmartUpload.Upload
if mySmartUpload.Form("B1X") <> "" then
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db.mdb")


For each file in mySmartUpload.Files
    file.SaveAs(Server.MapPath("doks/" &file.Filename))
    sql = "Insert into filer (menu, undermenu, underundermenu, link, linktekst) values('" & Replace(request.querystring("menu"), "'", "''") & "','" & Replace(request.querystring("undermenu"), "'", "''") & "','" & Replace(request.querystring("underundermenu"), "'", "''") & "','" & Replace(mySmartUpload.form("linktekst"), "'", "''") & "', & FileName)"
    Conn.Execute(sql)
Next

response.write "Her skal redirectes"
end if
%>

som jeg skrev skal mySmartUpload.upload kaldes før du kan hente forms med mySmartUpload.form(".....")

jeg prøver lige senere