Jmail

aller først så fortæl hvad der sker af fejl...

du mangler en helvetes mange (unnskyld uttrykket ;) ) end if\'s. istedenfor alle elseif, så avslutt dine if\'s med end if, for det er slett ikke behov for elseif\'s...

/nute

Problemet er at det ligger på et Webhotel i Danmark fordi forbindelsen ikke er god i Grønland og derfor er der ingen fejlmeldinger...

Og det kan da godt være jeg ikke har brug for alle de elseif men jeg har gjordt det for at afkorte scriptet så det ikke var så langt

men du skal huske på å avslutte hver elseif med end if... sånn som det er nå, så har du 6 if\'s/elseif\'s, men du har kun 3 end if\'s...det skal være 6 if\'s/elseif\'s og 6 end if\'s

/nute

Det kan da godt være.... men der er heller ikke behov for at de er der... Severen skulle meget gerne selv kunne regne den ud....

fungerer scriptet hvis du fjerner alle if...then konstruksjonene ? og du bare sender en mail tildeg selv ?

Nej

hmmmm...hvilket webhotel benytter du ?

Har lige prøvet på en Lokal server... der fik jeg denne fejlmeddelelse... tror det er fordi jeg sidder bag en Firewall...

Fejltype:
jmail.SMTPMail (0x8000FFFF)
The message was undeliverable. All servers failed to receive the message
/jul/Email.asp, line 47

Krak

få se det script du kjører nå..

?

post det scriptet som genererer feilmeldingen...

Jeg har valgt at slette kundernes Email adresser og Adressen til Email serveren af sikkerhedsmæssige grunde

<%
if Request.form(\"navn\") = \"\" Then
    Response.Write \"du har ikke udfyldt navn\"
    Response.Write \"<br><br>\"
    Response.Write \"<a href=\'java script:history.back(1)\'>klik her for at gå tilbage</a>\"
elseif Request.form(\"Email\") = \"\" Then
    Response.Write \"du har ikke udfyldt Din E-mail adresse\"
    Response.Write \"<br><br>\"
    Response.Write \"<a href=\'java script:history.back(1)\'>klik her for at gå tilbage</a>\"
Else

if Request.form(\"s\") = \"video\" then
Recipient = \"\"
elseif Request.form(\"s\") = \"gaveshop\" then
Recipient = \"\"
elseif Request.form(\"s\") = \"unik\" then
Recipient = \"\"
else
Response.Write(\"Der skete en fejl.. prøv igen\")
End if

Name = Server.HTMLEncode(Request.Form(\"navn\"))
SenderEmail = Request.Form(\"email\")
Subject = \"Juleindkoeb\"
Recipient = \"webmaster@igloo.gl\"
Body = \"Navn: \" & Server.HTMLEncode(request.form(\"navn\")) & vbCrlf & \"Email.: \" & Request.form(\"email\") & vbCrlf & \"Vare.: \" & Request.form(\"t\")& vbCrlf & \"Andet.: \" & Request.form(\"Description\") & \"\"
if Request.Form(\"tlfnummer\") <> \"\" then
    body = body & vbCrlf & \"Tlfnummer: \" & Request.Form(\"tlfnummer\")
End if

Set JMail = Server.CreateObject (\"JMail.SMTPMail\")

\' Below you should enter your own SMTP-server
JMail.ServerAddress = \"\"

JMail.Sender = SenderEmail
JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body

JMail.Priority = 3

JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")

JMail.Execute

Jmail = Nothing

Response.Redirect \"success.asp\"

End if
%>

Det er hele scriptet....

du er nødt til å angi en SMTP server i denne linje...

JMail.ServerAddress = \"\"

typisk noe ála

JMail.ServerAddress = \"smtp.utbyder.dk\"

ditt webhotel bør ha en tilgjengelig for deg...

Jeg har min egen og som jeg skrev længere oppe havde jeg valgt at slette den af sikkerhedsmæssige grundeø... men hvis du godt vil vide det er det mail.igloo.gl

hva hvis du prøver kun å kjøre dette script:

Set JMail = Server.CreateObject (\"JMail.SMTPMail\")

\' Below you should enter your own SMTP-server
JMail.ServerAddress = \"mail.igloo.gl \"

JMail.Sender = \"webmaster@igloo.gl\"

JMail.Subject = \"test\"

JMail.AddRecipient \"webmaster@igloo.gl\"

JMail.Body = \"test\"

JMail.Priority = 3

JMail.Execute

Jmail = Nothing

Response.Redirect \"success.asp\"

fungerer det  ?

Huh?...

Microsoft VBScript runtime error \'800a005b\'

Object variable not set: \'JMail\'

/jul/test.asp, line 19

set denne linje:

Jmail = Nothing

til:

Set Jmail = Nothing

Det virker....

fino...kan du så legge på alle dine if\'s. JEg regner med at det ikke vil fungere, men så er vi tilbake til det jeg skrev til å starte med...du er nødt til å avslutte alle dine if\'s...

forklar mig så lige hvorfor denne virker?

<%
if Request.form(\"navn\") = \"\" Then
    Response.Write \"du har ikke udfyldt navn\"
    Response.Write \"<br><br>\"
    Response.Write \"<a href=\'java script:history.back(1)\'>klik her for at gå tilbage</a>\"
elseif Request.form(\"title\") = \"\" Then
    Response.Write \"du har ikke udfyldt titel\"
    Response.Write \"<br><br>\"
    Response.Write \"<a href=\'java script:history.back(1)\'>klik her for at gå tilbage</a>\"
elseif Request.form(\"URL\") = \"\" Then
    Response.Write \"du har ikke udfyldt URL\"
    Response.Write \"<br><br>\"
    Response.Write \"<a href=\'java script:history.back(1)\'>klik her for at gå tilbage</a>\"
elseif Request.form(\"kategori\") = \"\" Then
    Response.Write \"du har ikke udfyldt kategori\"
    Response.Write \"<br><br>\"
    Response.Write \"<a href=\'java script:history.back(1)\'>klik her for at gå tilbage</a>\"
elseif Request.form(\"Email\") = \"\" Then
    Response.Write \"du har ikke udfyldt Din E-mail adresse\"
    Response.Write \"<br><br>\"
    Response.Write \"<a href=\'java script:history.back(1)\'>klik her for at gå tilbage</a>\"
Else

Name = Request.Form(\"navn\")
SenderEmail = Request.Form(\"email\")
Subject = \"Tilføjelse af Link\"
Recipient = \"webmaster@igloo.gl\"
Body = \"Titel: \" & Request.Form(\"title\") & vbCrlf & \"URL: \" & Request.form(\"URL\") & vbCrlf & \"Kategori: \" & Request.form(\"kategori\") & vbCrlf & \"Navn: \" & request.form(\"navn\") & vbCrlf & \"Email.: \" & request.form(\"email\") & vbCrlf & \"Beskrivelse.: \" & request.form(\"Description\") & vbCrlf & \"Søgeord 1: \" & request.form(\"search1\") & vbCrlf & \"Søgeord 2: \" & request.form(\"search2\") & vbCrlf & \"Søgeord 3: \" & request.form(\"search3\") & vbCrlf & \"Søgeord 4: \" & request.form(\"search4\") & vbCrlf & \"Søgeord 5: \" & request.form(\"search5\") & vbCrlf & \"Søgeord 6: \" & request.form(\"search6\") & vbCrlf & \"\"

Set JMail = Server.CreateObject (\"JMail.SMTPMail\")

\' Below you should enter your own SMTP-server
JMail.ServerAddress = \"mail.igloo.gl\"

JMail.Sender = Senderemail
JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body

JMail.Priority = 3

JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")

JMail.Execute

%>

<%
response.redirect \"success.asp\"

End if
%>

Og desuden var det kun mail parten der virkede... jeg skal jo også bruge resten...

jeg forstår ikke hvorfor du ikke forstår hva jeg skriver til deg...det er da rimelig simpelt: hver if eller elseif (som *er* en if) skal avslutter med en end if.

men nå som jeg allikevel skulle skrive det for deg, har jeg tillatt meg å skrive det litt mer fornuftig...

<%
err = \"\"
if Request.form(\"navn\") = \"\" Then
    err = err &  \"du har ikke udfyldt navn<br>\"
end if
if Request.form(\"title\") = \"\" The
    err = err &  \"du har ikke udfyldt titel<br>\"
end if
if Request.form(\"URL\") = \"\" Then
    err = err &  \"du har ikke udfyldt URL<br>\"
end if
if Request.form(\"kategori\") = \"\" Then
    err = err &  \"du har ikke udfyldt kategori\"<br>\"
end if
if Request.form(\"Email\") = \"\" Then
    err = err &  \"du har ikke udfyldt Din E-mail adresse<br>\"
end if

if( LEN( err ) > 0 ) then
  response.write err & \"<br><a href=\'java script:history.back(1)\'>klik her for at gå tilbage</a>\"
else
   
    Name = Request.Form(\"navn\")
    SenderEmail = Request.Form(\"email\")
    Subject = \"Tilføjelse af Link\"
    Recipient = \"webmaster@igloo.gl\"
    Body = \"Titel: \" & Request.Form(\"title\") & vbCrlf & \"URL: \" & Request.form(\"URL\") & vbCrlf & \"Kategori: \" & Request.form(\"kategori\") & vbCrlf & \"Navn: \" & request.form(\"navn\") & vbCrlf & \"Email.: \" & request.form(\"email\") & vbCrlf & \"Beskrivelse.: \" & request.form(\"Description\") & vbCrlf & \"Søgeord 1: \" & request.form(\"search1\") & vbCrlf & \"Søgeord 2: \" & request.form(\"search2\") & vbCrlf & \"Søgeord 3: \" & request.form(\"search3\") & vbCrlf & \"Søgeord 4: \" & request.form(\"search4\") & vbCrlf & \"Søgeord 5: \" & request.form(\"search5\") & vbCrlf & \"Søgeord 6: \" & request.form(\"search6\") & vbCrlf & \"\"
   
    Set JMail = Server.CreateObject (\"JMail.SMTPMail\")
   
    \' Below you should enter your own SMTP-server
    JMail.ServerAddress = \"mail.igloo.gl\"
   
    JMail.Sender = Senderemail
    JMail.Subject = Subject
   
    JMail.AddRecipient Recipient
   
    JMail.Body = Body
   
    JMail.Priority = 3
   
    JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
   
    JMail.Execute
   
    Set JMail = nothing
   
response.redirect \"success.asp\"

End if
%>

/nute

Det virker stadig ikke..

jeg kan umulig hjelpe hvis jeg ikke får mer  å arbeide med...

Har fundet ud af det nu men du får pointene alligevel.... du guidede mig den rigtige vej...

fint at det fungerer...takker :)