Köpa Tomt

<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252" %> Köpa Tomt <% if Request.Form <> "" then personnr=Request.Form("tbpersonnr") fnamn=Request.Form("tbfnamn") enamn=Request.Form("tbenamn") adress=Request.Form("tbadress") postnr=Request.Form("tbpostnr") postadress=Request.Form("tbpostadress") epost=Request.Form("tbepost") telefon=Request.Form("tbtelefon") mobil=Request.Form("tbmobil") ' omrade=Request.Form("selomrade") Set Pdf = Server.CreateObject("Persits.Pdf") Set Doc = Pdf.CreateDocument Doc.Title = "Tomtanmälan" Doc.Creator = "Krokom.se" Set FontBold = Doc.Fonts("Arial") Set Font = Doc.Fonts("Arial") Set FontRubrik = Doc.Fonts("Arial") Set Page = Doc.Pages.Add() 'Topp logga Set ftgLogga = Doc.OpenImage( Server.MapPath("images/utskriftstopp_krokom.jpg")) '----------------------------------------------------------------------------------------- 'ÖVRE DELEN AV PDF-dokumentet '----------------------------------------------------------------------------------------- 'Utskiftstoppen Set Param = Pdf.CreateParam Param("x") = 5 Param("y") = 690 Param("scaleX")=0.45 Param("scaleY")=0.45 Page.Canvas.DrawImage ftgLogga, Param Page.Canvas.DrawText "Datum: "& date, "x=500; y=685; width=612; size=10; html=true;", Font Page.Canvas.DrawText "Anmälan till tomtkö i Ås", "x=200; y=650; width=612; size=18; html=true;", FontRubrik 'Anmälarensuppgifter Page.Canvas.DrawText "Personnummer", "x=70; y=610; width=612; size=12; html=true;", Font Set PNumber = Page.CreateTextbox( "personnummer", personnr, "x=200; y=593; width=200; height=17; Border=0.5; FontSize=12; Print=1;", Font, Nothing ) Page.Canvas.DrawText "Förnamn", "x=70; y=585; width=612; size=12; html=true;", Font Set Fornamn = Page.CreateTextbox( "fornamn", fnamn, "x=200; y=568; width=200; height=17; Border=0.5; FontSize=12; Print=1", Font, Nothing ) Page.Canvas.DrawText "Efternamn", "x=70; y=560; width=612; size=12; html=true;", Font Set Efternamn = Page.CreateTextbox( "efternamn", enamn, "x=200; y=543; width=200; height=17; Border=0.5; FontSize=12; Print=1", Font, Nothing ) Page.Canvas.DrawText "Adress", "x=70; y=535; width=612; size=12; html=true;", Font Set Adress = Page.CreateTextbox( "adress", adress, "x=200; y=518; width=200; height=17; Border=0.5; FontSize=12; Print=1", Font, Nothing ) Page.Canvas.DrawText "Postnummer", "x=70; y=510; width=612; size=12; html=true;", Font Set Postnummer = Page.CreateTextbox( "postnr", postnr, "x=200; y=493; width=200; height=17; Border=0.5; FontSize=12; Print=1", Font, Nothing ) Page.Canvas.DrawText "Postadress", "x=70; y=485; width=612; size=12; html=true;", Font Set Postadress = Page.CreateTextbox( "postadress", postadress, "x=200; y=468; width=200; height=17; Border=0.5; FontSize=12; Print=1", Font, Nothing ) Page.Canvas.DrawText "Telefon", "x=70; y=460; width=612; size=12; html=true;", Font Set telefon = Page.CreateTextbox( "telefon", telefon, "x=200; y=443; width=200; height=17; Border=0.5; FontSize=12; Print=1", Font, Nothing ) Page.Canvas.DrawText "Mobil", "x=70; y=435; width=612; size=12; html=true;", Font Set Mobil = Page.CreateTextbox( "mobil", mobil, "x=200; y=418; width=200; height=17; Border=0.5; FontSize=12; Print=1", Font, Nothing ) Page.Canvas.DrawText "Epost", "x=70; y=410; width=612; size=12; html=true;", Font Set Email = Page.CreateTextbox( "epost", epost, "x=200; y=393; width=200; height=17; Border=0.5; FontSize=12; Print=1", Font, Nothing ) 'X, Y, Width, Height, ReadOnly, NoExport, Required, Highlight, FontSize, Print filsokvag=server.MapPath("html/pdf/anmalan.pdf") Filename = Doc.Save(filsokvag , True ) 'Maila pdf till birgitha.olsson@krokom.se set JMail=Server.createobject("JMail.SMTPMail") if epost<>"" then JMail.Sender = trim(epost) else JMail.Sender = "hemsida@krokom.se" end if JMail.SenderName= fnamn & enamn ' JMail.AddRecipient "malin.eriksson@syre.se" JMail.AddRecipient "birgitha.olsson@krokom.se" JMail.Subject = "Anmälan tomtkö i Ås" JMail.Body = "Anmälan till tomtkö i Ås" '--------------------------------------------------------------------- 'Bifoga pdf-filen JMail.AddAttachment(filsokvag) '--------------------------------------------------------------------- JMail.AddHeader "Originating-IP",Request.ServerVariables("REMOTE_ADDR") on error resume next JMail.ServerAddress = "mail.jamtport.se" On Error Resume next JMail.Execute If Err <> 0 then errMess = errMess & "Epost-meddelande kunde ej sändas på grund av följande fel: " & Err.Description & "
" Err = 0 End If Recipients.Clear JMail.Clearrecipients ' JMail.clear 'om fel uppstått if errMess <> "" then Response.Write(errMess) else strMess="alert('Dina anmälan har sparats.')" end if 'if instr(Request.ServerVariables("HTTP_REFERER"),"sanghusvallen") then Response.Redirect("www.sanghusvallen.krokom.se/html/tack.html") 'end if end if %>

Tomtinfo!

Efter att din anmälan kommit in till Krokoms kommun registreras den i en turordningslista. Beroende av placering i kön får du så småningom ett erbjudande om att förvärva en tomt i Sånghusvallen.

Beträffande Sånghusvallen etapp 1 erbjuder Krokoms kommun 45 tomter i tre olika priskategorier. Priset grundar sig på vilket läge tomten har i området.

Dessa prislägen är;
19 st för 200 000 kr
17 st för 250 00 kr
15 st för 300 000

Jag har fått min drömtomt
Vad händer nu? Läs mera...

Intresserad av en tomt?

För att få chansen att köpa en av tomterna i Sånghusvallen måste du anmäla dig till vår tomtkö.
Det kan du göra här nedan. Efter att vi har registrerat dig kommer sedan en bekräftelse på din anmälan och din placering i tomtkön.
Att vara placerad i Krokoms kommuns tomtkö för Ås kostar 200 kr i registreringsavgift.
Observera att det är endast för Ås-området som du kan anmäla dig här.
För övriga delar av kommunen ringer du direkt till 0640-164 54 för att anmäla ditt intresse.

Fyll i ansökan komplett. Vissa av uppgifterna är obligatoriska

Ansökan till tomtkö i Ås




Personnummer *

Förnamn *

Efternamn *

Adress *

Postnummer *

Postadress *

Telefon *

Mobil

Epost

Bestämmelser för tomtkö Läs dem här ..
Jag har tagit del av och godkänner bestämmelserna.*
* = obligatoriska uppgifter

copyright samhällsbyggnadsförvaltningen krokoms kommun. kontakt: 0640-161 00