New Page 0

Planeringsmöte

I Bröllopspriset ingår en timmes möte med fotograflotta innan bröllopsfotograferingen bokas. Vi går igenom era önskemål om fotograferingen samt lär känna varandra litegrann. Är det så att ni under mötet känner att personkemin inte riktigt stämmer mellan oss så skiljs våra vägar där. Ni debiteras inget för mötet då och jag önskar er all lycka.

Tanken med mötet är att ni ska känna er trygga med ert val av fotograf.

Tillbaka till bröllopspriser.

Skicka mail till lotta@fotograflotta.se med frågor och kommentarer angående denna web sajt..
Senast ändrad 2008-06-23. Sajten gör sig bäst med Internet Explorer 6.0 och skärmupplösningen 1024x768.
<% 'Dimension variables Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count 'Create a File System Object variable Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'Initialise a File Object with the path and name of text file to open Set filObject = fsoObject.GetFile(Server.MapPath("\hit_count.txt")) 'Open the visitor counter text file Set tsObject = filObject.OpenAsTextStream 'Read in the visitor number from the visitor counter file lngVisitorNumber = CLng(tsObject.ReadAll) 'If the session variable is null or does not exsist then increment the counter number If isEmpty(Session("blnCounterSet")) = True Then 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Set the session variable to true Session("blnCounterSet") = True End if 'Create a new visitor counter text file over writing the previous one Set tsObject = fsoObject.CreateTextFile(Server.MapPath("\hit_count.txt")) 'Write the new visitor number to the text file tsObject.Write CStr(lngVisitorNumber) 'Reset server objects Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing 'HTML output to display the visitor number 'Response.Write("Visitor Number
") 'Display the hit count as text 'Response.Write(lngVisitorNumber) 'Loop to display graphical digits 'For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) 'Display the graphical hit count 'Response.Write("") 'Next %>Antal besökare: <%=lngVisitorNumber %> Copyright © 2003 fotograflotta.se