Monday, August 24, 2015

Aug. 24, 2015

At home my son Nigel is away at college, we dropped him off 2 days ago. I miss him a lot. I feel an emptiness and miss all the little things we did together from just helping me sweep up the dirt in front of the house to seeing him each day. I miss the way he would play with Lola and I want to try to get Max to do the same. Max came home from a Jet practice at Hofstra and got 11 signatures but didn't pet Lola. I asked him to and he did.

We took the dog to a dog park in Massapequa and no dogs were there. Lola sniffed around for a while and then we walked a little and left.

Had dinner at a outdoor place that's hard to find with Cheryl and Lola. Had a chicken wrap and a beer and blood sugar was at 144. Now that Nigel is in college I have to fix my health.

Earlier in the day I walked Lola to her friend Stella's house. I did it completely off leash. It's a short walk. I've been practicing with Lola going down stairs with me. She's not allowed to go until I go. If she does I give her a correction.  I've been working on leaving the curb. She's not allowed to leave curb and go into the street until I do. I can even fake it and she knows to wait for me. She's a very smart girl.

Wrestling

I watched wrestling with Max. We watched the Undertaker vs Brock Lesner. I predicted that the Undertaker would win. Since Brock won the first contest if the Undertaker wins the second fight they could have a rematch. The fight ended in a surprising way. Brock got the Undertaker in a submission move and the Undertaker tapped out. The ref didn't see it because he was checking for a pin. The bell rang but the ref said there was no tap out as he didn't see it. While the ref was talking to the bell keeper, the Undertake knocked Brock in the nuts, and then put him in a submission move. Brock didn't tap out but gave the Undertaker the middle finger. Brock eventually passed out and the the ref stopped the fight at that time.

At 50 years old it's pretty amazing that the Undertaker could wrestle. There was another match Kevin Owen vs. a Flying Scotish Guy. I was surprised that the KO won as he's fat and out of shape.

WOAD - Wisdom of a Dad

I worked on the book trying to organize the chapter on Success which in the table of contents went from page 40 to 105. It was very boring and difficult to do this. I'm thinking if there's a way to monetize the book. 
I worked a little on the cover and it needs work.
 I'm not ready to spend money on it. 

Listi.net

Go the website to use Sql Server in a little over an hour but it was just a sample program. http://Listi.net/dbtest2.asp.

While developing the code I got a -2147217843 error This login failed because the password to server login(user) fails. The problem was caused by the password having single quotes around it but it didn't need any password.

Health

I mowed the lawn and walked a little yesterday, but my left ankle by the Achilles tendon still hurts. I played tennis 2 days ago against Max and beat him 6 - 0. I want to start working out with weights but don't yet have a plan. I woke up at 4 AM to pee and thinking about website.

News

Story in News yesterday about 3 guys that saved a train from a crazy Muslim I think, they didn't really say that, with an AK47 and lot's of ammo. This happened in France.

Reading a story in the Generational Dynamics blog about Obamacare and the Fraud that was committed by John Xenakis.

Stocks

Big losses on Friday, Market was down 530 points. 




ASP Code


<html>
<head>
<title>My First ASP Page
</head>
<body bgcolor="white" text="black">
<%
'test access to database
' from https://www.webwiz.co.uk/kb/asp-tutorials/connecting-to-an-access-database.htm
'Dimension variables
Dim adoCon         'Holds the Database Connection Object
Dim rsGuestbook    'Holds the recordset for the records in the database
Dim strSQL         'Holds the SQL query to query the database
response.write("dbtest2.asp")


'Create an ADO connection object
on error resume next
Set adoCon = Server.CreateObject("ADODB.Connection")
if err <> 0 then
 response.write( err & " " & err.description)
 response.end
end if
response.write( "after adocon

")



'Set an active connection to the Connection object using a DSN-less connection
on error resume next

response.write("connecting to sql server")
'adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../access_db/xd.mdb") 
'response.write("

err = " & err & " " & err.description & "

")
'response.write("")

on error resume next
response.write("connecting to odorDBuser2")
adoCon.Open "Driver={SQL Server};Server=<server name got from Godaddy>;Database=odorDBuser2;Uid=odorDBuser2;Pwd=*********;"
response.write("

err = " & err & " " & err.description & "

")
response.write("")


'Create an ADO recordset object
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "select * from test_table;"

'Open the recordset with the SQL query 
rsGuestbook.Open strSQL, adoCon


'Loop through the recordset 
Do While not rsGuestbook.EOF 

    'Write the HTML to display the current record in the recordset 
    Response.Write ("

") 
    Response.Write (rsGuestbook("test_one")) 
    Response.Write ("

") 
    Response.Write (rsGuestbook("test_two")) 
    Response.Write ("

") 

    'Move to the next record in the recordset 
    rsGuestbook.MoveNext 
Loop

randomize
x = int(rnd() * 100)
response.write("x = " & x)
on error resume next
strSQL = "insert into test_table values('xyz'," & x & ",'zzz')"
response.write("strSQL = " & strSQL)
rsGuestbook.Close
rsGuestbook.Open strSQL, adoCon
response.write("

err = " & err & " " & err.description & "

")
 'Reset server objects
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>

</body>
</html>


No comments:

Post a Comment