<%If Request.QueryString("do") = "skicka" Then Soker = Request.Form("soker") Omrade = Request.Form("omrade") Intresserad = Request.Form("intresserad") Garage = Request.Form("garage") Namn = Request.Form("namn") Mail = Request.Form("mail") Personnummer = Request.Form("personnummer") Nuvarandeadress = Request.Form("nuvarandeadress") Telefon = Request.Form("telefon") Sysselsattning = Request.Form("sysselsattning") Arbetsgivare = Request.Form("arbetsgivare") Hyresvard = Request.Form("hyresvard") Hyresvardkontakt= Request.Form("hyresvardkontakt") Makanamn = Request.Form("makanamn") Makanamn = Request.Form("makapersonnummer") Barnalder = Request.Form("barnalder") Rokare = Request.Form("rokare") Antalrokare = Request.Form("antalrokare") Husdjur = Request.Form("husdjur") Antalhusdjur = Request.Form("antalhusdjur") Referenser = Request.Form("referenser") Msg = Replace(Request.Form("msg"), vbCrLf, "
" & vbCrLf) On error resume next Set SmartMail = Server.CreateObject("aspSmartMail.SmartMail") SmartMail.Server = "smtp1.webbpost.se" SmartMail.SenderAddress = Mail SmartMail.Recipients.Add "intresseanmalan@boningen.se" SmartMail.Subject = "Kontakta mig!" Body = "" Body = Body & "Meddelande från hemsidan
" Body = Body & "------------------------------------------
" Body = Body & "Skickades: " & Now & "
" Body = Body & "Vi söker: " & Soker & "
" Body = Body & "Område: " & Omrade & "
" Body = Body & "Vi vill flytta: " & intresserad & "
" Body = Body & "Vi önskar garage/motorvärmare: " & garage & "
" Body = Body & "Namn: " & Namn & "
" Body = Body & "E-mail: " & Mail & "
" Body = Body & "Personnummer: " & Personnummer & "
" Body = Body & "Nuvarande adress: " & nuvarandeadress & "
" Body = Body & "Telefon: " & telefon & "
" Body = Body & "Sysselsättning: " & sysselsattning & "
" Body = Body & "Arbetsgivarens namn: " & arbetsgivare & "
" Body = Body & "Nuvarande hyresvärd: " & hyresvard & "
" Body = Body & "Får nuvarande hyresvärd kontaktas: " & hyresvardkontakt & "
" Body = Body & "Maka/Make/Sambos namn: " & makanamn & "
" Body = Body & "Maka/Make/Sambos personnummer: " & makapersonnummer & "
" Body = Body & "Antal hemmavarande barn och ålder: " & barnalder & "
" Body = Body & "Finns rökare i familjen: " & rokare & "
" Body = Body & "Antal rökare: " & antalrokare & "
" Body = Body & "Husdjur: " & husdjur & "
" Body = Body & "Antal husdjur: " & antalhusdjur & "
" Body = Body & "Referenser: " & referenser & "
" Body = Body & "------------------------------------------
" Body = Body & Msg & "
" Body = Body & "" SmartMail.Body = Body SmartMail.Charset = "iso-8859-1" SmartMail.ContentType = "text/html" SmartMail.SendMail If Err.Number<>0 then Response.Write "Nåt blev fel! Har du fyllt i alla rutor rätt?" Else Response.Write "" Response.Write "" End if End If%>

*Obligatoriska fält
Vi söker:	1:a 2:a 3:a 4:a 4:a el större
Område:	Nygatan 75 Piteå Nygatan 77 Piteå Nygatan 79 Piteå
Vi vill flytta:	Omgående Inom 6 månader Annan tid
Önskar garage/motorvärmare:	Ja Nej
Namn:*
E-mail:*
Personnummer:
Nuvarande adress:
Telefonnummer:
Sysselsättning:
Arbetsgivarens namn:
Nuvarande hyresvärd:
Hyresvärd får kontaktas:	Ja Nej
Maka/Make/Sambos namn:
Maka/Make/Sambos personnummer:
Antal hemmavarande barn och ålder:
Finns rökare i familjen:	Ja Nej Antal
Husdjur:	Ja Nej Antal
Referenser vi kan kontakta:
Övrigt:
Tackar " & Namn & "! Ditt meddelande besvaras så fort som möjligt!