Avatar billede jmc Nybegynder
20. august 2001 - 14:33 Der er 14 kommentarer og
1 løsning

rækkefølge på forms tilsendt en mail

Hvad sikre jeg mig at rækkefølgen bliver:

Aktivitet
Mødedato
Medlemsnummer
Navn
Firma
Adresse
Postnummer/By
Email
Telefonnummer

noget af koden fra form.asp ser sådan ud:

                    tekst = tekst & \"<p class=mellem>Tilmelding til: <br>\" & oRS(\"aktivitet\") & \"</p>\" & _
                        vbCrLf & \"<form action=tilmeld.asp method=post onSubmit=\"\"MM_validateForm(\'Firma\',\'\',\'R\',\'Aktivitet\',\'\',\'R\',\'Navn\',\'\',\'R\',\'Adresse\',\'\',\'R\',\'Postnummer/By\',\'\',\'R\',\'Email\',\'\',\'NisEmail\');return document.MM_returnValue\"\">\" & _
                        \"<input name=Type type=hidden value=\"\"Aktivitet\"\">\" & _
                        \"<input name=Type2 type=hidden value=\"\"\" & oRS(\"aktivitet\") & \"\"\">\" & _
                        \"<input name=Aktivitet type=hidden value=\"\"\" & oRS(\"aktivitet\") & \"\"\">\" & _
                        \"<input name=mødedato type=hidden value=\"\"\" & oRS(\"datofra\") & \"\"\">\" & _
                        \"<P>Medlemsnummer<br><input name=Medlemsnummer type=text><br>\" & _
                        \"Navn<br><input name=Navn type=text><br>\" & _
                        \"Firma<br><input name=Firma type=text><br>\" & _
                        \"Adresse<br><input name=Adresse type=text><br>\" & _
                        \"Postnummer/By<br><input name=Postnummer/By type=text><br>\" & _
                        \"Email<br><input name=Email type=text><br>\"
                    tekst = tekst & \"Telefonnummer<br><input name=Telefonnummer type=text><br></p>\" & _
                        \"<br><input value=\"\"Send tilmelding\"\" type=submit></form>\"
            end if


noget af koden fra tilmeld.asp ser sådan ud:

for each e in Request.Form
    if e <> \"Type\" and e <> \"Submit\" and e <> \"Type2\" then
        if Request.Form(e) <> \"\" then
            udfyldt = true
            tekst = tekst & e & linie & Request.Form(e) & linie & linie
        end if
    end if
next


nu er rækkefølgen, hvilket er forkert!:

Aktivitet
Adresse
mødedato
Medlemsnummer
Navn
Firma
Postnummer/By
Email
Telefonnummer
Avatar billede soenderup Nybegynder
20. august 2001 - 14:38 #1
Prøv med:
<input name=Type type=hidden ID=01.....
osv.
Avatar billede euhp Nybegynder
20. august 2001 - 14:40 #2
Gør det manuelt i stedet for \"For Each\", som tager det alfabetisk.
Avatar billede jmc Nybegynder
20. august 2001 - 17:03 #3
Kan det virkeligt ikke gøre nemmere?


if Request.Form(Aktivitet) <> \"\" then tekst = tekst & \"Aktivitet\" & linie & Request.Form(Aktivitet) & linie & linie
if Request.Form(datofra) <> \"\" then tekst = tekst & \"datofra\" & linie & Request.Form(datofra) & linie & linie
if Request.Form(Medlemsnummer) <> \"\" then tekst = tekst & \"Medlemsnummer\" & linie & Request.Form(Medlemsnummer) & linie & linie
if Request.Form(Navn) <> \"\" then tekst = tekst & \"Navn\" & linie & Request.Form(Navn) & linie & linie
if Request.Form(Firma) <> \"\" then tekst = tekst & \"Firma\" & linie & Request.Form(Firma) & linie & linie
if Request.Form(Adresse) <> \"\" then tekst = tekst & \"Adresse\" & linie & Request.Form(Adresse) & linie & linie
if Request.Form(Postnummer/By) <> \"\" then tekst = tekst & \"Postnummer/By\" & linie & Request.Form(Postnummer/By) & linie & linie
if Request.Form(Email) <> \"\" then tekst = tekst & \"Email\" & linie & Request.Form(Email) & linie & linie
if Request.Form(Telefonnummer) <> \"\" then tekst = tekst & \"Telefonnummer\" & linie & Request.Form(Telefonnummer) & linie & linie


giver mig fejlen:
Request object error \'ASP 0102 : 80004005\'

Expecting string input

/tilmeld2.asp, line 31

The function expects a string as input.

OG DET ER DEN FØRSTE LINIE
Avatar billede jmc Nybegynder
20. august 2001 - 17:10 #4
ID på alle formfields
VIRKER IKKE men giver
samme resultat.
Avatar billede jmc Nybegynder
20. august 2001 - 18:38 #5
if Request.Form(Aktivitet) <> \"\" then tekst = tekst & \"Aktivitet\" & linie & Request.Form(Aktivitet) & linie & linie

giver mig fejlen:
Request object error \'ASP 0102 : 80004005\'
Expecting string input
/tilmeld2.asp, line 31
The function expects a string as input.

HVAD SKYLDES DENNE FEJL?
Avatar billede jmc Nybegynder
20. august 2001 - 19:09 #6
Jeg glemte denne kode som sættes længere oppe i dokumentet som derfor ikkegiver fejlen.

linie = vbCrLf
Avatar billede jmc Nybegynder
20. august 2001 - 23:00 #7
Her er hele mit dokument og den som finder fejlen kan få alle points. Fejlen er Expecting string input / line 31 / The function expects a string as input.


<html>
<head>
<title><%= Application(\"title\") %></title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<!-- #include file=\"stylesheet.asp\" -->
<body bgcolor=\"#FFFFFF\">
<%
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.CharSet = 2
Mailer.FromName  = \"JMC TEST\"
Mailer.FromAddress= \"jmc@navn.dk\"
Mailer.RemoteHost = \"mail.navn.dk\"
Mailer.AddRecipient \"navn\", \"jmc@navn.dk\"
Mailer.Subject    = Request.Form(\"Type\") & \": \" & Request.Form(\"Type2\")

tekst = \"\"
linie = vbCrLf
\'linie = \"<br>\"
udfyldt = false

\'for each e in Request.Form
\'    if e <> \"Type\" and e <> \"Submit\" and e <> \"Type2\" then
\'        if Request.Form(e) <> \"\" then
\'            udfyldt = true
\'            tekst = tekst & e & linie & Request.Form(e) & linie & linie
\'        end if
\'    end if
\'next

if Request.Form(Aktivitet) <> \"\" then
tekst = tekst & \"Aktivitet\" & linie & Request.Form(Aktivitet) & linie & linie
udfyldt = true
end if

if Request.Form(datofra) <> \"\" then
tekst = tekst & \"datofra\" & linie & Request.Form(datofra) & linie & linie
udfyldt = true
end if

if Request.Form(Medlemsnummer) <> \"\" then
tekst = tekst & \"Medlemsnummer\" & linie & Request.Form(Medlemsnummer) & linie & linie
udfyldt = true
end if

if Request.Form(Navn) <> \"\" then
tekst = tekst & \"Navn\" & linie & Request.Form(Navn) & linie & linie
udfyldt = true
end if

if Request.Form(Firma) <> \"\" then
tekst = tekst & \"Firma\" & linie & Request.Form(Firma) & linie & linie
udfyldt = true
end if

if Request.Form(Adresse) <> \"\" then
tekst = tekst & \"Adresse\" & linie & Request.Form(Adresse) & linie & linie
udfyldt = true
end if

if Request.Form(Postnummer/By) <> \"\" then
tekst = tekst & \"Postnummer/By\" & linie & Request.Form(Postnummer/By) & linie & linie
udfyldt = true
end if

if Request.Form(Email) <> \"\" then
tekst = tekst & \"Email\" & linie & Request.Form(Email) & linie & linie
udfyldt = true
end if

if Request.Form(Telefonnummer) <> \"\" then
tekst = tekst & \"Telefonnummer\" & linie & Request.Form(Telefonnummer) & linie & linie
udfyldt = true
end if




\'Response.Write tekst

Mailer.BodyText  = tekst

if udfyldt then
    if Mailer.SendMail then
      Response.Write \"<p>Din besked er sendt</p>\"
    else
      Response.Write \"<p>Din besked er <b>ikke</b> sendt</p>\"
      Response.Write \"<p>Mail-error. Fejlen var: <b>\" & Mailer.Response & \"</b></p>\"
    end if
else
      Response.Write \"<p>Din besked blev <b>ikke</b> sendt</p>\"
      Response.Write \"<p>felterne var ikke udfyldt!</p>\"
end if
      Response.Write \"<title>MAIL TIL SSID</title>\"
      Response.Write \"<p><a href=\" & Request.ServerVariables(\"HTTP_REFERER\") &  \">tilbage</a></p>\"

%>
Avatar billede jmc Nybegynder
21. august 2001 - 14:14 #8
Hvad gør jeg forkert? alle points til den som svare!!!

Expecting string input
/tilmeld2.asp, line 31
The function expects a string as input.

Avatar billede soenderup Nybegynder
21. august 2001 - 14:28 #9
Har du prøvet:
if not Request.Form(Aktivitet) = \"\" then

/Sønderup
Avatar billede jmc Nybegynder
21. august 2001 - 14:44 #10
giver samme resultat???
Request object error \'ASP 0102 : 80004005\'

Expecting string input
/tilmeld2.asp, line 31
The function expects a string as input.

linie 31 er nu:
if not Request.Form(Aktivitet) = \"\" then
Avatar billede soenderup Nybegynder
21. august 2001 - 14:47 #11
hmmm her er den ;-)

if not Request.Form(\"Aktivitet\") = \"\" then


det var \"
Avatar billede soenderup Nybegynder
21. august 2001 - 14:49 #12
du skal huske at dit tekstfelt m.m. skal stå i \"xxx\" på alle dine formularkald
Avatar billede jmc Nybegynder
21. august 2001 - 14:52 #13
desværre løber jeg med de fleste points da jeg selv fandt svaret:

Request.Form(\"Telefonnummer\")
eller

Har du prøvet:
if not Request.Form(\"Aktivitet\") = \"\" then 

der manglede et \"\" i syntaksen
Avatar billede soenderup Nybegynder
21. august 2001 - 14:55 #14
prøv lige at kigge oven over: 21/08 2001 14:47:06  .....

det er sku tyndt.
Avatar billede jmc Nybegynder
21. august 2001 - 14:57 #15
Danm, du kom alligvel først!
;o)
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