<%session("menu") = "contact"%>

<% if request.QueryString("postaction") = "posted" then %>

Ditt meddelande har nu skickats.

Vi kontaktar Er så fort som möjligt.

<%else%>
?action=declarationmenu<%end if%>" class="niceform">
<%end if%>

KONTAKT

<% strSQL = "SELECT undertaking.name, undertaking.id as undertakingID, parent.email, parent.undertaking, parent.name as firstname, parent.secondname as secondname, parent.mobilehome as mobilehome FROM undertaking INNER JOIN parent ON parent.undertaking = undertaking.id WHERE undertaking.id = 1 OR undertaking.id = 12 ORDER BY undertaking.name DESC" Set RS_Undertaking = get_recordset(strSQL) Do Until RS_Undertaking.EOF %> <%if CInt(RS_Undertaking("undertakingID")) = 1 then%> <%=RS_Undertaking("firstname")%> - ordförande
Mobil: <%=RS_Undertaking("mobilehome")%>
ordforande@klinten.se

<%end if%> <%if CInt(RS_Undertaking("undertakingID")) = 12 then%> <%=RS_Undertaking("firstname")%> - barnrekryteringsansvarig
Mobil: <%=RS_Undertaking("mobilehome")%>
barnrekrytering@klinten.se

<%end if%> <% RS_Undertaking.MoveNext loop close_recordset(RS_Undertaking) %> Pernilla - föreståndare

Montessoriförskolan Klinten
Fornuddsvägen 1
135 52 Tyresö

<%if request.Form("action") = "send" then Dim contactPerson, phone, email, message,sendToEmail contactPerson = request.form("contactPerson") phone = request.form("phone") email = request.form("email") message = request.form("message") sendToEmail = request.form("sendToEmail") Dim strHTML,MailObj strHTML ="" strHTML = strHTML & "" 'strHTML = strHTML & "" strHTML = strHTML & "" strHTML = strHTML & "

" strHTML = strHTML & "Kontaktperson: " & contactPerson & "

" strHTML = strHTML & "Telefon: " & phone & "

" strHTML = strHTML & "Epost: " & email & "

" strHTML = strHTML & "Meddelande: " & message & "

" strHTML = strHTML & "" call sendMailFromScript(sendToEmail,"","Kontakt - Klinten",strHTML) if Request.QueryString("action") = "declarationmenu" then Response.Redirect("contact.asp?postaction=posted&action=declarationmenu") else Response.Redirect("contact.asp?postaction=posted") end if end if %>