%@ Language=VBSCript%> <% dim strConn dim strSQL dim numTemp strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/counter.mdb") & ";UID=admin;PWD=gadsplace;" 'strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DSN=GadsHitCounter;pwd=gadsplace;" strSQL = "SELECT * FROM Hits WHERE PageID=2" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.Open strSQL, strConn, 3, 3 if Rs.EOF = false then numTemp = Rs.Fields("Count") numTemp = numTemp + 1 Rs.Fields("Count") = CLng(numTemp) Rs.Update end if Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>
About Gad
Name: Gad
Age: 29
Degrees: B.S. in Computer Engineering, Mississippi State
University, May 2002
B.S. in Computer Science, Mississippi State University, May 2002
Ranks:Computer Engineering: #2 of 18
Computer Science: #3 of 22
College of Engineering: #4 of 184
All Graduates: #15 of 1414
Hometown: Amory, MS
High School: Amory High School Class of 1997
Rank: #1 of 91
Organizations: Baptist Student Union, Engineering Student Council, University Honors Program, Association for Computing Machinery, Institute for Electrical and Electronics Engineers
Interests: NASCAR, Computers (Duh!), Politics, Music, and Outer Space
Last Updated: