Dim objConn, objRS, strQ, arrRS Dim strConnection Dim i, strArrangement, strSvarTekst Dim strAID, strNavn, strAdresse, strPostnr, strDistrikt, strTelefon, strEmail, strNumV, strNumB, strMedlem Dim Mailer
If Request.ServerVariables("QUERY_STRING")<> "" then strAID = Trim(Request.QueryString("AID")) strNavn = Trim(Request.QueryString("Navn")) strAdresse = Trim(Request.QueryString("Adresse")) strPostnr = Trim(Request.QueryString("Postnr")) strDistrikt = Trim(Request.QueryString("Distrikt")) strTelefon = Trim(Request.QueryString("Telefon")) strEmail = Trim(Request.QueryString("Email")) strNumV = Trim(Request.QueryString("NumV")) strNumB = Trim(Request.QueryString("NumB")) strMedlem = Trim(Request.QueryString("Medlem")) End If
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
OK, det ser ikke ud til at din formular indeholder så meget data, at du løber ind i problemer med at sende den via get. D
er er en begrænsning i hvormeget data du kan sende i url'en (jeg mener den ligger omkring 400 tegn), så det anbefales, at du sender formularen med method="post" i stedet og så aflæser oplysningerne i request.form i stedet for request.querystring.
Anyway! Siden det nok ikke er det der er problemet, har jeg kigget lidt mere på koden og jeg antager at den udkommentering du har lavet af SendMail ikke har noget med den manglende afsendelse af gøre... vel?
Du har sat en apostrof foran kaldet til SendMail og dermed sat den ud af funktion, så du skal lige bekræfte overfor mig at SendMail rent faktisk bliver kaldt.
Det kan skyldes flere ting, hvor nogle af dem kunne være:
* komponenten er ikke installeret på din server * modtager e-mailadressen findes ikke eller er ugyldig * smtp-serveren er ugyldig eller utilgængelig * diverse objektfejl som relateres til brugen af objektet * osv...
Du er derfor nød til lige at give lidt mere information om hvilken fejl du specifikt får. Du kan evt. indføre lidt fejlhåndtering i rutinen SendMail og udskrive de fejloplysninger som rutinen giver. Eksempelvis:
sub showerror(txt) if err.number <> 0 then response.write txt & ": " & err.number & " / " & err.Description err.clear end if end if
Når du så har kørt denne kode, kan du jo poste de beskeder som siden viser her i tråden. Det er lettere at fejlfinde, hvis man har noget at gå efter :-)
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.