Old West Breeds - Allevamento selettivo di razze di origine western U.S.A

click here for english versionCatahoulas by Salvatore Montemurro - Napoli - 333/3373247
Red Bulldogs by Angelo Scagliotti - Caluso (TO) - 333/5290779

 

 




    Firma anche tu il libro degli ospiti e leggi i commenti dei nostri visitatori.

    <% 'this function pulls out any html codes. ' this is administrator name : use this for differentiate messages. Const AdminName = "oldwest" ' Function StringSwitch(ValueIN) StringSwitch = Server.HTMLEncode(ValueIN) End Function '-------------------------------------------------------------- Function AppendEntry(FieldIn) 'change the mappath value to where your guestbook application resides--in the virtual directory. Set FileObject = Server.CreateObject("Scripting.FileSystemObject") TestFile =Server.Mappath ("gb.inc") Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False) Do Until InStream.AtEndOfStream TempLine = TempLine & Instream.ReadLine Loop InStream.close 'open text file for appending Set fs = Server.CreateObject("Scripting.FileSystemObject") 'set this to the physical location of the include file that stores your actual entries. Set a = fs.CreateTextFile(Server.Mappath ("gb.inc"), True) 'writes the information to the file a.Write(FieldIn) a.WriteLine() a.write(TempLine) a.Close End Function '-------------------------------------------------------------- Function CheckInput() If request.form("T1")=AdminName then TempValue = "
    "&_ "" & FormatDateTime(Date(), vbLongDate) & " ore " & FormatDateTime(Time(), vbLongTime) & "
    " & _ "Nome: Salvatore Montemurro
    " & _ "nazione: " & StringSwitch(request.form("T4")) & "
    " & _ "E-mail: " & StringSwitch(request.form("T2")) & "
    " & _ "indirizzo WWW: " & StringSwitch(request.form("T3")) & "
    " & _ "Commenti: " & StringSwitch(request.form("S1")) & _ "

    " Call AppendEntry(TempValue) Else TempValue = "
    "&_ "" & FormatDateTime(Date(), vbLongDate) & " ore " & FormatDateTime(Time(), vbLongTime) & "
    " & _ "Nome: " & StringSwitch(request.form("T1")) & "
    " & _ "nazione: " & StringSwitch(request.form("T4")) & "
    " & _ "E-mail: " & StringSwitch(request.form("T2")) & "
    " & _ "indirizzo WWW: " & StringSwitch(request.form("T3")) & "
    " & _ "Commenti: " & StringSwitch(request.form("S1")) & _ "

    " Call AppendEntry(TempValue) End If End Function '-------------------------------------------------------------- Function ShowEntries() Set FileObject = Server.CreateObject("Scripting.FileSystemObject") TestFile = Server.Mappath ("gb.inc") Set InStream= FileObject.OpenTextFile (TestFile, 1, False, False) Do Until InStream.AtEndOfStream response.write Instream.ReadLine Loop End Function '-------------------------------------------------------------- If request.form("B1") <> "" Then Call CheckInput() End If %>

    Nome:

    E-mail:

    indirizzo WWW:

    Nazione

    Messaggio:

     
    <% Call ShowEntries() %>
     

 

www.catahoula.it - il layout, il testo e le foto sono materiale protetto. E’ vietata la riproduzione anche parziale non autorizzata
contatti: info@catahoula.it, per problemi tecnici webmaster@catahoula.it

progetto grafico: Angelo Marotta  powered by  Il Lupo - Web Works