Hej
I nedanstående script skrivs filer i en katalog ut. Problemet nu är att jag vill kunna klicka på en av filerna och skicka med något liknande detta

<form method="POST" action="skickaepost_enamn_html.asp?nyhet=nyhetsbrev/arbetsmapp/<%objFile.name%>")%>">

jag har försökt att hämta upp variabeln objFile.name från scriptet och skicka med det i ett formulär men inte lyckats. Mottagande sida är klar för att ta emot filnamnet det är testat genom att ersätta objFile.name med ett befintligt filnamn.

-----------------------------------------

<%
'Listar alla filer i mappan nyhetsbrev
Dim objFSO, objFile, objFolder
Set objFSO=_
Server.CreateObject("Scripting.FileSystemObject")
Set objFolder=_
objFSO.GetFolder(Server.MapPath("nyhetsbrev/visas_on_hemsidan"))
Response.Write "<b>"&"Webarkiv"&"<br>"&"</b>"
Response.Write "<b>"&"------------------"&"<br>"
For Each objFile in objFolder.Files
Dim filext: filext = Len(objFSO.GetExtensionName(objFile.name)) + 1
Dim fillangd: fillangd = Len(objFile.name)
'Skriver ut filnanmnen utan filändelsen
Dim filnamn: filnamn = Left((objFile.name),fillangd-filext)
%>

'Helst vill jag inte ha en "radio" här utan helst bara klicka på namnet.
<input type="radio" value="<%=objfile.name%>" checked name="FilVal">

<%
'Här vill jag klicka på namnet och skicka med motsvarande som ovanstående <form> exempel

Response.Write filnamn
Response.Write "<br>"
Next
Set objFolder = Nothing
Set objFSO = Nothing
%>

Mycket tacksam för lite hjälp
Ted

Så här blev det

<%
'Listar alla filer i mappan nyhetsbrev
  Dim objFSO, objFile, objFolder
Set objFSO=_
  Server.CreateObject("Scripting.FileSystemObject")
Set objFolder=_
  objFSO.GetFolder(Server.MapPath("nyhetsbrev/visas_on_hemsidan"))
 Response.Write "<b>"&"Välj nyhetsbrev från Webarkivet"&"<br>"&"</b>"
 Response.Write "<b>"&"------------------"&"<br>"
  For Each objFile in objFolder.Files
  Dim filext: filext = Len(objFSO.GetExtensionName(objFile.name)) + 1
  Dim fillangd: fillangd = Len(objFile.name)
'Skickar vald fil 
  Dim filnamn: filnamn = Left((objFile.name),fillangd-filext)
  Response.Write "" & filnamn &""
  Response.Write "<br>"


  Next
  Set objFolder = Nothing
  Set objFSO = Nothing
%>