Ja usmart det kan da godt være, men jeg har et script som løber gennem en given formular og sender en mail, og det fungere upåklageligt. Det skal jeg så koble sammen med overstående, så jeg kan få det med i formularen. Problemet er at den er sat op til at lede efter xx_ ved feltnavnene så den kan sortere, er der ikke noget xx_ så bliver de ikke medtaget i formularen til email.
siden det er på er her:
http://www.mitcms.dk/eksterne/dmmd/default.asp?id=173jeg er da åben overfor andre løsninger.
men jeg skal sådan set bare have den til at kunne tælle radioknapperne sammen selv om de kommer til at hedde ba_q0, bb_q1 osv.
funktionen jeg bruger til at løbe formen igennem er følgende:
function sortArray(arrIn)
for n = 0 to Ubound(arrIn)
lastValue = "¤¤¤¤¤"
for i = 0 to Ubound(arrIn)
if not lastValue = "¤¤¤¤¤" then
thisValue = arrIn(i)
if lastValue > thisValue then
arrIn(i) = lastValue
arrIn(i-1) = thisValue
end if
end if
lastValue = arrIn(i)
next
next
sortArray = arrIn
end function
if request("send")="ja" then
if Request.Form <> "" then
Redim Preserve ArrUnsorted(-1)
for each Item in Request.Form
if Item<>"modtager_email" and Item<>"send_tekst" and Item<>"server_email" and Item<>"emne_email" and Item<>"sender_email" and Item<>"send" and Item<>"" then
if Instr(1, Item, "_") > 1 then
Redim Preserve ArrUnsorted(Ubound(ArrUnsorted)+1)
ArrUnsorted(Ubound(ArrUnsorted)) = Item
end if
end if
next
ArrSorted = sortArray(ArrUnsorted)
end if
for i = 0 to Ubound(ArrSorted)
mtextz = mtextz & Split(ArrSorted(i), "_")(1) & ": " & Request.Form(ArrSorted(i)) & "<br>"
Next