Jag har gjort en funktion som kollar om den text man skrivit in är en giltig e-postadress...

Det jag undrar är hur man gör om man vill att den ska kollas mot fler adresser...Jag vill ju inte skriva funktionen två gånger...

Så här har jag skrivit nu (den del som kollar @):

strEmail = Request.Form("adress1")

Function kollaAdress(strEmail)

strEmail = CStr(strEmail)
If Not InStr(strEmail, "@") = 1 Then
kollaAddress = "Fel"
Exit function
End If

IsEmail = "Ok"
End Function

If IsEmail(strEmail) = "Ok" Then
Response.Write "Adressen är OK"
Else
Response.Write "Adressen är felaktig"
End If

Förstår inte riktigt frågan, men du kan ju anropa funktionen flera gånger.
<code>
If kollaAdress(strEmail_1) = "Ok" Then
Response.Write "Adressen nummer 1 är OK"
Else
Response.Write "Adressen är felaktig"
End If


If kollaAdress(strEmail_2) = "Ok" Then
Response.Write "Adressen nummer 2 är OK"
Else
Response.Write "Adressen är felaktig"
End If
</code>

Du måste även ändra raden i funktionen:

IsEmail = "Ok"

till

kollaAdress="Ok"

Annars returnerar inte funktionen något värde
Samt att du kallar functionen med vad den heter dvs kollaAdress

Har du Option Explicit satt på sidan?

Det är den delen hur jag skriver för att anropa funktionen flera gånger som jag inte vet hur man gör...

Ja, jag har satt "option explicit"

Hej,

Jag är också osäker på vad du menar, men jag gissar att du vill anropa funktionen från flera ASP-sidor utan att skriva in funktionen på samtliga sidor? I såfall får du skriva funktionen i en separat fil som du sedan inkluderar på samtliga sidor. Exakt syntax för detta får någon ASP-expert svara på, jag har inte det i huvudet...

Hoppas jag inte var helt ute och cyklade :-)

/Per Hultqvist

Magnus >> Är det typ så här du menar?

<code>
dim epost(6), x

for x = 0 to 6
If IsEmail(epost(x)) = "Ok" Then
Response.Write "Adressen är OK"
Else
Response.Write "Adressen är felaktig"
End If
next

</code>

Det jag menar är att jag har två e-postadresser som ska kollas samtidigt...Och eftersom det är samma kreterier för båda adresserna vill jag ju inte skriva in funktionen två gånger på samma sida...

Men hallå.. ulf har gett dig rätt svar för länge sedan..


Funktionen
'saker funktionen gör
Slut funktionen

'Anrop funktionen, adress 1
if funktionen(ADRESS1) är jättebra adress
'så är adress1 en jättebra adress
end if

'anropa funktionen, adress 2
if funktionen(ADRESS2) är jättebra adress
'så är adress2 en jättebra adress
end if

hänger du med på mitt dravel..

Den del är jag nog med på...Men hur skriver jag i funktionen...

Nu står det ju så här:

Function kollaAdress(strEmail)

strEmail = CStr(strEmail)
If Not InStr(strEmail, "@") = 1 Then
kollaAddress = "Fel"
Exit function
End If

IsEmail = "Ok"
End Function

Vad skriver jag istället för "strEmail" i själva funktionen?

Du skall inte skriva nåt annat. Det är ju bara namnet på den parameter du kollar i funktionen. Hade nog krympt ner funktionen så här

strEmail = CStr(strEmail)
If Not InStr(strEmail, "@") = 1 Then
kollaAddress = "Fel"
Else
'''''''''' IsEmail = "Ok" '<******** OBS du måste byta ut denna rad mot
kollaAddress = "Ok" '<******** OBS
End If

Tack!

Nu har äntligan jag också fattat!