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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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\'
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.
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>\"
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.