Response.Write vises ikke i Explorer men kun i Firefox??
Hejsa,Jeg benytter et script jeg fandt her på sitet! :)
Det virker perfekt... men efter man har submittet formen (ikke medtaget her) er "tak"-siden blank i Explorer men vises fint i Firefox??
Er der blot en fejl i min opsætning af explorer eller er firefox bare bedre :) !!?
Hvad er løsningen..hvordan sikre jeg at explorer også viser outputtet... Eller og! hvordan kan jeg evt. indsætte en pause (mens brugeren læser det formodet output og derefter sender dem videre til siden bank.htm!!
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
navn = Request.Form("navn")
adresse = Request.Form("adresse")
postnummer = Request.Form("postnummer")
by = Request.Form("by")
email = Request.Form("email")
besked = Request.Form("besked")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Website"
Mailer.FromAddress= "Minmail"
Mailer.RemoteHost = "mail.wannafind.dk" 'Angiv mail server her
' Mailer.AddRecipient skal havde to paramater og vil man kun bruger email skal det være:
' Mailer.AddRecipient "", "Minmail"
Mailer.AddRecipient "website navn", "Minmail"
Mailer.Subject = "Mail!"
body = "Ny mail: " & vbCrLf & vbCrLf
body = body & "Data for mail:" & vbCrLF
body = body & "Navn : " & vbCrLf & navn & vbCrLf & vbCrLf
body = body & "Adresse : " & vbCrLf & adresse & vbCrLf & vbCrLf
body = body & "Postnummer : " & vbCrLf & postnummer & vbCrLf & vbCrLf
body = body & "By : " & vbCrLf & by & vbCrLf & vbCrLf
body = body & "E-mail : " & vbCrLf & email & vbCrLf & vbCrLf
body = body & "Besked : " & vbCrLf & server.HTMLEncode(besked) & vbCrLf & vbCrLf
body = body & vbCrLf & vbCrLf & "Med venlig hilsen" & vbCrLf
body = body & "Websitet!"
Mailer.BodyText = body
if Mailer.SendMail then
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
Set Mailer = Nothing
Response.Redirect (Request.ServerVariables("SCRIPT_NAME")&"?mode=tak")
end if
if Request.Querystring("mode")="tak" then
Response.Write "<strong><font=Verdana 12pt <br><br> Tak for din registrering - Tjek din mailbox!<br><br>"
Response.Write "</strong><font=Verdana 10pt> Såfremt du har oplyst en korrekt og gyldig e-mailadresse og din mailboks ikke er fyldt,"
Response.Write "<br> vil du om kort tid modtage en kvittering for tilmeldingen og evt. nyhedsflyer, hvis du bestilte denne."
Response.Write "<br> Der vil blive sendt en kvittering til begge emailadresse (Hvis udfyldt) Deltagerens og Firma Email"
Response.Write "<br><br>" & "Kvittering for <b>betaling</b> udleveres i indskrivningen på mødedagen."
Response.Write "<br><br>" & "På gensyn til træningen."
Response.Write "<br><br><br><br> <a href=""bank.htm""> Klik Her </a> for at se Bank Oplysninger!!"
Response.Write "<br><br> Klik Her for at betale med VISA/Dankort! <b><<<< Kommer SNART</b>"
Response.End
end if
%>