Avatar billede wilweb Nybegynder
14. september 2002 - 11:37 Der er 7 kommentarer og
1 løsning

arrays

DIM Email(5)
Email(1) = "1@email.dk"
Email(2) = "2@email.dk"
Email(3) = "3@email.dk"
Email(4) = "4@email.dk"
Email(5) = "5@email.dk"

DIM strEmne, strBesked, strNavn, strCompany, strEmail, i, x, MailList

strEmne = request.Form("textfieldEmne")
strBesked = request.Form("textareaBesked")
strNavn = request.Form("textfieldName")
strCompany = request.Form("textfieldCompany")
strEmail = request.Form("textfieldEmail")

'tjekker hvilken checkboxes der er afkrydset
'og lægger dem i en , separeret array "MailList"
  For i = 1 to 5
  IF request.Form("box" & i)  = "on" Then
    MailList = MailList & i & ","
  END IF
  Next

'udskriver MailList bare for at tjekke hvad den indeholder   
response.Write(MailList) & "<br>"

'splitter MailList op 
idArray  = Split(MailList,",")

'løber idArray igennem og udskriver indholdet af idArray(x)
for x = lbound(idArray) to ubound(idArray)
  Response.Write idArray(x) & "<br>"
next

Hvis idArray indholder 1, 3 og 5 Hvordan kan jeg så ud skrive Email(1), Email(3) og Email(5)

Håber det er til at forstå!
Gizom:>
Avatar billede wilweb Nybegynder
14. september 2002 - 11:39 #1
Lad mig sige jeg har prøvet med:

Response.Write Email(idArray(x))

men kan ikke få det til at virke!!
Avatar billede wilweb Nybegynder
14. september 2002 - 11:41 #2
og at idArray(x) retunere 1, 3 og 5 når de bliver udskrevet i:
Response.Write idArray(x) & "<br>"
Avatar billede eagleeye Praktikant
14. september 2002 - 11:49 #3
hvis du prøver denne:

'løber idArray igennem og udskriver indholdet af idArray(x)
for x = lbound(idArray) to ubound(idArray)
  Response.Write Email(idArray(x)) & "<br>"
next
Avatar billede wilweb Nybegynder
14. september 2002 - 11:57 #4
Eageleeye:> jeg får denne fejl!
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'idArray(...)'
/workshop/mailform/_validate.asp, line 93

linje 93:
Response.Write Email(idArray(x)) & "<br>"
Avatar billede wilweb Nybegynder
14. september 2002 - 12:01 #5
kan det have noget at sige at idArray kommer fra den komma separeret MailList og måske derfor er en string og ikke et tal???
Avatar billede eagleeye Praktikant
14. september 2002 - 12:04 #6
Hvis der er tal så skulle der virker.....

PRøv efter disse linier:
  For i = 1 to 5
  IF request.Form("box" & i)  = "on" Then
    MailList = MailList & i & ","
  END IF
  Next

At til føjge
  if MailList <> "" then
    MailList = Left(MailList, len(MailList)-1)
  end if


for at fjerne det sidste komma efter sidste tal eller kommer der måske et tom felt i idArray..
Avatar billede eagleeye Praktikant
14. september 2002 - 12:05 #7
du kan også ptøve at sætte trim ind i denne linie:

Response.Write Email(Trim(idArray(x))) & "<br>"

Hvis der skulle være et mellemrum før eller efter tallet.
Avatar billede wilweb Nybegynder
14. september 2002 - 12:16 #8
Eagleeye:> TAK, Den kom til at virke med:

For i = 1 to 5
  IF request.Form("box" & i)  = "on" Then
  MailList = MailList & i & ","
  END IF
Next
if MailList <> "" then
  MailList = Left(MailList, len(MailList)-1)
end if

og så udskriv med med:

for x = lbound(idArray) to ubound(idArray)
  Response.Write Email(idArray(x)) & "<br>"
next
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester