<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("feedback and comments_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(1) Dim arFormDBFields0(1) Dim arFormValues0(1) arFormFields0(0) = "Comments" arFormDBFields0(0) = "Comments" arFormValues0(0) = Request("Comments") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "guest_book.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> GUEST BOOK

 

GUEST BOOK

 

Please add your comments, suggestions, 
or any information that may be helpful or interesting 
to other visitors--including your email. 
I would love to have any photo 
contributions you would be willing to email to me-- 
people, cars, bars and clubs, restaurants, homes, 
parties, love-ins, concerts, posters, ticket stubs, etc. 
My email address is:  Hllywd4ever@aol.com
Thank you so much for your interest in this website.

R.D. Simone
 

Old Guest Book Entries

Old Guest Book 2

<% Function FP_SaveFormFields(rs, rgFormFields, rgDBFields) On Error Resume Next Err.Clear Dim i For i = 0 To UBound(rgFormFields) FP_SaveFormField rs, rgFormFields(i), rgDBFields(i) Next Err.Clear End Function Function FP_SaveFormField(rs, strField, strDBField) On Error Resume Next Err.Clear If (Request.Form(strField)) = "" And rs(strDBField).Type <> adBoolean Then Exit Function End If FP_SaveFieldToDB rs, Request.Form(strField), strDBField Err.Clear End Function Function FP_SaveFieldToDB(rs, strField, strDBField) On Error Resume Next Err.Clear Dim fp_Debug fp_Debug = False Select Case rs(strDBField).Type Case adInteger Or adBigInt Or adUnsignedTinyInt Or adUnsignedSmallInt Or adUnsignedInt Or adUnsignedBigInt rs(strDBField) = CInt(strField) Case adSingle Or adDecimal Or adNumeric rs(strDBField) = CSng(strField) Case adDouble rs(strDBField) = CDbl(strField) Case adCurrency rs(strDBField) = CCur(strField) Case adBoolean rs(strDBField) = CBool(strField) Case adDate Or adDBDate Or adDBTime or adDBTimeStamp rs(strDBField) = CDate(strField) Case Else rs(strDBField) = CStr(strField) End Select If fp_Debug Then strError = "Cannot save value """ & strField & """ to database field """ & strDBField & """" Else strError = "Cannot save value to database field" End If FP_DumpError strErrorUrl, strError Err.Clear End Function Function FP_FormConfirmation(szCharset, szTitle, szmsg1, szUrl, szMsg2) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write " " & szTitle & "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & szTitle & "

" & vbCrLf Response.Write "

" & szMsg1 &"

" & vbCrLf Response.Write "

" & vbCrLf For Each item in Request.Form If item <> "VTI-GROUP" Then Response.Write "" & item & "" & ": " & Server.HTMLEncode(Request.Form(item)) & "
" & vbCrLf End If Next Response.Write "

" & vbCrLf Response.Write "

" & szMsg2 & "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.End End Function Function FP_DumpError(strErrorUrl, strMsg) Dim fp_Debug fp_Debug = False If Err.Number <> 0 Then fp_conn.Close If strErrorUrl <> "" Then Response.Redirect strErrorUrl Else Response.Write " " & Server.HTMLEncode(strMsg) & "

" If fp_Debug Then Response.Write "Error Description: " & Server.HTMLEncode(Err.Description) & "

" Response.Write "Error Number: " & Server.HTMLEncode(Err.Number) & "

" Response.Write "Error Source: " & Server.HTMLEncode(Err.Source) & "

" End If Response.End End If End if End Function %>

Add Your Comments, Stories, Etc. here...

 



After you submit your comments, you will need to reload this page with your browser in order to see your additions to the log.

"Goodbye, Sagittarius
I still hear your guitar
and I get so starry-eyed
Looking up at you at night
Hello, Super Star"

R.D. Simone ©1971
Third Stone, First Rose

Events        Sunset Strip People       Home

Hammond's Historical Habitat   

  Sixties Posters      Video Clip     Maps

     Soosi's Page     Joe Cocker Drunk On Tape

    Feedback      Raggi's Ramblings      Links
    
List of People      Tulsa Time    Early Sixties   

 

Email: Hllywd4ever@aol.com

Copyright © 2000  by The Great Hollywood Hangover.  
All rights reserved.
Revised: 21 Dec 2008 12:00:41 -0700 .