<% 'KONTROLLERA OM ANROPET KOMMER FRÅN FORMULÄRET If Request.QueryString("what") = "Subscribe" or Request.QueryString("what") = "Unsubscribe" Then 'LÄS IN VARIABLERNA FRÅN FORMULÄRET epost=Request.Form("Email") arende="" meddelande="" 'VEM SKALL TA EMOT MEDDELANDET Select case Request.QueryString("what") Case "Subscribe" mottagare="se-news-subscribe@iii.se" Case "Unsubscribe" mottagare="se-news-unsubscribe@iii.se" End select 'DIMENSIONERA VARIABLERNA SOM BEHÖVS FÖR E-POSTRUTINEN Dim iMsg Dim iConf Dim Flds Dim sSubject Dim sTextBody Dim strSmartHost Const cdoSendUsingPort = 2 'BETYDER ATT VI VILL SKICKA VIA SMTP PORT 'Variabeln StrSmartHost måsta ha värdet '"websrv4" för att skriptet 'skall fungera! StrSmartHost = "websrv4" Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' set the CDOSYS configuration fields to use port 25 on the SMTP server With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With ' apply the settings to the message With iMsg Set .Configuration = iConf .To = mottagare .From = epost .Subject = arende .HTMLBody = meddelande .Send End With ' cleanup of variables Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing End if %> Familjen Nilssons skidäventyr - 18 skiddagar i Alperna

Mer info om familjen Nilssons skidäventyr

<% '===================================================================================================================== %> <% ' Nyttiga länkar som alltid visas %> <% '===================================================================================================================== %>

Bra länkar

Här kommer vi att lägga upp länkar som du kommer att ha stor nytta av. <% '===================================================================================================================== %>

Österrike
- Österrikiska turistbyrån

Boende
- Tiscover

Kartor
- ViaMichelin
- Map24

<% ' Välkomstkod %> <% '===================================================================================================================== %>

<% End If %> <% '===================================================================================================================== %>

Meny

- Hem

- Dagbok

- Förberedelser

- Ekonomi

- Mer info