<% @Language = VBScript %> <% '************************************************************************** ' ' ASP SIDE BESKRIVELSE ' Dato : Egå, den 19. september 2017 ' Opdateret : ' Sidenavn : kontakt_himalayatrae.asp ' Projekt : www.mithimalayatrae.dk ' Programmør : John ' Versioner : ' Beskrivelse : Side med kontaktformular ' Include Filer : inc/himalaya.css ' Linker til : JMail hos www.UnoEuro.com ' '*************************************************************************** Opdateret = "19.09.2017" Dim s_Navn, s_Adresse, s_Zip, s_By, s_Tlf, s_Mail, s_Besked session.lcid = 1030 ' Danmark %> Plant et træ i Himalaya - Kontaktformular <% If Request.Form("navn") = "" Then %> <% Else response.write "

Kontakt "Plant et træ i Himalaya"

. . udfyld og send formularen nedenfor!

 

 Navn:

 * 

 Adresse:

    

 Postnummer:

    

 By:

    

 Telefon:

    

 E-mail:

 * 

 Besked:

 * 
  *   skal udfyldes        
Klik kun "Send" én gang. I løbet af få sekunder vil du få vist en kvitteringsside.
" response.write "" response.write "") ' s_ = string - trimmet for at fjerne evt. blanke før og efter s_Navn = Trim(Request.Form ("navn")) s_Adresse = Trim(Request.Form ("adresse")) s_Zip = Trim(Request.Form ("zip")) s_By = Trim(Request.Form ("bynavn")) s_Tlf = Trim(Request.Form ("tlf")) s_Mail = Trim(Request.Form ("email")) s_Besked = Trim(Request.Form ("besked")) s_emne = "Plant et træ i Himalaya - kontaktformular " & date & ", kl. " & time s_Indhold = "

Foreløbigt svar på kontaktformular

" response.write ("


Din besked er afsendt.
Hvis din henvendelse kræver svar, vil vi vende tilbage til dig snarest muligt.

Til forsiden

") response.write ("

 Vi har modtaget nedenstående besked
 

Følgende oplysninger er sendt fra hjemmesidens formular

Navn: " & s_Navn & "
Adresse: " & s_Adresse & "
Postnr.: " & s_Zip & "     By: " & s_By & "
Tlf.: " & s_Tlf & "
E-mail adresse: " & s_Mail & "
Besked: " & s_Besked & "
" response.write s_Indhold Set objJMail = Server.CreateObject ("JMail.Message") objJMail.MailServerUserName = "info@mithimalayatrae.dk" objJMail.MailServerPassword = "u2Pia_1969" objJMail.From = "info@mithimalayatrae.dk" objJMail.FromName = "Hjemmesiden: Plant et træ i Himalaya" objJMail.AddRecipient "info@mithimalayatrae.dk" ' objJMail.MailServerUserName = "jb@mithimalayatrae.dk" ' objJMail.From = "jb@mithimalayatrae.dk" ' objJMail.AddRecipient "john@ajbang.dk" objJMail.Logging = true objJMail.ContentType = "text/html" objJMail.Priority = 1 objJMail.Subject = s_emne objJMail.Body = s_indhold objJMail.Send("smtp.unoeuro.com:587") Set objJMail = Nothing End If %>