Astrophotography
Audio
Collectibles
My Family
About Me
Links
Home
Home
Journal
Equipment
My Pictures
Baseball
▶
Basketball
▶
Football
▶
Hockey
▶
My Studio
My Original Music
My Music Library
Nikki
▶
Tyler
▶
Kim
Who Am I?
My Resume
Autographed Baseballs
Autographed Baseball Cards
Autographed Baseball Figurines
Baseball Cards
Autographed Basketballs
Autographed Basketball Cards
Basketball Cards
Autographed Footballs
Autographed Football Cards
Autographed Football Figurines
Autographed Football Helmets
Football Cards
Autographed Hockey Pucks
Autographed Hockey Cards
Hockey Cards
Basketball
Pictures
Stuff
Pictures
Welcome To The Gwiz Page
Subject
Count
Updated
Clusters
1
03/10/2005
Galaxies
1
01/02/2005
Jupiter
3
07/25/2004
Moon
31
03/19/2005
Nebula
3
04/10/2005
Saturn
4
07/25/2004
Venus
1
07/25/2004
Others
7
07/04/2005
My Astophotography Images
<% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <head> <link rel=stylesheet href="../bin/mystyle.css" type="text/css"> <meta http-equiv="imagetoolbar" content="no"> </head> <body> <center> <script type="text/javascript" src="/gwiz32/bin/disableMouse.js"></script> <% xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("aphoto.mdb") & ";" %> <% '------------------------------------------------------------------------------- ' Functions for default date format ' ANamedFormat = 0-7, where 0-4 same as VBScript ' 5 = "yyyy/mm/dd" ' 6 = "mm/dd/yyyy" ' 7 = "dd/mm/yyyy" Function EW_FormatDateTime(ADate, ANamedFormat) If isdate(ADate) Then If ANamedFormat >= 0 and ANamedFormat <= 4 Then EW_FormatDateTime = FormatDateTime(ADate, ANameFormat) ElseIf ANamedFormat = 5 Then EW_FormatDateTime = Year(ADate) & "/" & Month(ADate) & "/" & Day(ADate) ElseIf ANamedFormat = 6 Then EW_FormatDateTime = Month(ADate) & "/" & Day(ADate) & "/" & Year(ADate) ElseIf ANamedFormat = 7 Then EW_FormatDateTime = Day(ADate) & "/" & Month(ADate) & "/" & Year(ADate) Else EW_FormatDateTime = ADate End If Else EW_FormatDateTime = ADate End If End Function Function EW_UnFormatDateTime(ADate, ANamedFormat) Dim arDate, AYear, AMonth, ADay arDate = split(ADate, "/") If ubound(arDate) = 2 Then If ANamedFormat = 5 Then EW_UnFormatDateTime = arDate(0) & "/" & arDate(1) & "/" & arDate(2) ElseIf ANamedFormat = 6 Then EW_UnFormatDateTime = arDate(2) & "/" & arDate(0) & "/" & arDate(1) ElseIf ANamedFormat = 7 Then EW_UnFormatDateTime = arDate(2) & "/" & arDate(1) & "/" & arDate(0) Else EW_UnFormatDateTime = ADate End If Else EW_UnFormatDateTime = ADate End If End Function %> <% '------------------------------------------------------------------------------- ' Functions for file upload Function stringToByte(toConv) For i = 1 to Len(toConv) tempChar = Mid(toConv, i, 1) stringToByte = stringToByte & chrB(AscB(tempChar)) Next End Function Function byteToString(toConv) For i = 1 to LenB(toConv) byteord = AscB(MidB(toConv, i, 1)) If byteord < &H80 Then ' Ascii byteToString = byteToString & Chr(byteord) Else ' Double-byte characters? If i < LenB(toConv) Then nextbyteord = AscB(MidB(toConv, i+1, 1)) On Error Resume Next ' Note: This line does NOT work on all systems due to limitation of the ' Chr() function byteToString = byteToString & Chr(CInt(byteord) * &H100 + CInt(nextbyteord)) If Err.Number <> 0 Then On Error GoTo 0 byteToString = byteToString & Chr(byteord) & Chr(nextbyteord) End If i = i + 1 ElseIf i = LenB(toConv) Then byteToString = byteToString & Chr(byteord) End If End If Next End Function Function getValue(name) If dict.Exists(name) Then gv = CStr(dict(name).Item("Value")) gv = Left(gv,Len(gv)-2) getValue = gv Else getValue = "" End If End Function Function getFileData(name) If dict.Exists(name) Then getFileData = dict(name).Item("Value") If LenB(getFileData) Mod 2 = 1 Then getFileData = getfileData & ChrB(0) End If Else getFileData = "" End If End Function Function getFileName(name) If dict.Exists(name) Then temp = dict(name).Item("FileName") tempPos = 1 + InStrRev(temp, "\") getFileName = Mid(temp, tempPos) Else getFileName = "" End If End Function Function getFileSize(name) If dict.Exists(name) Then getFileSize = LenB(dict(name).Item("Value")) Else getFileSize = 0 End If End Function Function getFileContentType(name) If dict.Exists(name) Then getFileContentType = dict(name).Item("ContentType") Else getFileContentType = "" End If End Function '------------------------------------------------------------------------------- ' Note: This function does NOT work on non English servers due to limitation of ' the Chr() function Function saveToFile(name, path) If dict.Exists(name) Then Dim temp temp = dict(name).Item("Value") Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") Dim file Set file = fso.CreateTextFile(path) For tPoint = 1 to LenB(temp) file.Write Chr(AscB(MidB(temp,tPoint,1))) Next file.Close saveToFile = True Else saveToFile = False End If End Function %> <% displayRecs = 50 recRange = 10 %> <% dbwhere = "" masterdetailwhere = "" searchwhere = "" a_search = "" b_search = "" whereClause = "" %> <% 'Get the keys for master table' If Request.QueryString("key_m").Count > 0 Then key_m = Request.QueryString("key_m") 'Load from query string Session("Items_masterkey") = key_m 'Save master key to session startRec = 1 'Reset start record counter (new master key) Session("Items_REC") = startRec Else key_m = session("Items_masterkey") 'Restore master key from session' End If If key_m <> "" Then masterdetailwhere = "[Object] = '" & key_m & "'" End If %> <% 'Get clear search cmd' If Request.QueryString("cmd").Count > 0 Then cmd = Request.QueryString("cmd") If UCase(cmd) = "RESET" Then searchwhere = "" 'Reset search criteria' Session("Items_searchwhere") =searchwhere ElseIf UCase(cmd) = "RESETALL" Then searchwhere = "" 'Reset search criteria' Session("Items_searchwhere") =searchwhere key_m = "" Session("Items_masterkey") = key_m 'clear master key masterdetailwhere = "" End If startRec = 1 'Reset start record counter (reset command)' Session("Items_REC") = startRec End If 'Construct dbwhere' If masterdetailwhere <> "" Then dbwhere = dbwhere & "(" & masterdetailwhere & ") AND " End If If searchwhere <> "" Then dbwhere = dbwhere & "(" & searchwhere & ") AND " End If If Len(dbwhere) > 5 Then dbwhere = Mid(dbwhere, 1, Len(dbwhere)-5) 'trim right most AND End If %> <% 'Open Connection to the database' Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str 'Build SQL' strsql = "SELECT * FROM [Items_Query]" If DefaultFilter <> "" Then whereClause = whereClause & "(" & DefaultFilter & ") AND " End If If dbwhere <> "" Then whereClause = whereClause & "(" & dbwhere & ") AND " End If If Right(whereClause, 5)=" AND " Then whereClause = Left(whereClause, Len(whereClause)-5) If whereClause <> "" Then strsql = strsql & " WHERE " & whereClause End If If OrderBy <> "" Then strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("Items_OT") End If 'Response.Write strsql' Set rs = Server.CreateObject("ADODB.Recordset") rs.cursorlocation = 3 rs.Open strsql, conn, 1, 2 totalRecs = rs.RecordCount 'Check for a START parameter' If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("Items_REC") = startRec ElseIf Request.QueryString("pageno").Count > 0 Then pageno = Request.QueryString("pageno") If IsNumeric(pageno) Then startRec = (pageno-1)*displayRecs+1 If startRec <= 0 Then startRec = 1 ElseIf startRec >= ((totalRecs-1)\displayRecs)*displayRecs+1 Then startRec = ((totalRecs-1)\displayRecs)*displayRecs+1 End If Session("Items_REC") = startRec Else startRec = Session("Items_REC") If Not IsNumeric(startRec) Or startRec = "" Then startRec = 1 'Reset start record counter' Session("Items_REC") = startRec End If End If Else startRec = Session("Items_REC") If Not IsNumeric(startRec) Or startRec = "" Then startRec = 1 'Reset start record counter' Session("Items_REC") = startRec End If End If %> <% If key_m <> "" Then strmassql = "SELECT * FROM [Items_Query] WHERE " strmassql = strmassql & "([Object] = '" & key_m & "')" Set rsMas = Server.CreateObject("ADODB.Recordset") rsMas.cursorlocation = 3 rsMas.Open strmassql, conn End If %> <% If key_m <> "" Then If NOT rsMas.EOF Then %> <% x_Image = rsMas("Image") %> <% End If End If %> <% If key_m <> "" Then rsMas.Close Set rsMas = Nothing End If %> <center> <table align="center" style="background-color: transparent; border: none"> <tr> <td align="center" width="100%"> <img src="<% response.write x_Image %>" width="432" height="288" name="photoslider"> </td> </tr> <tr> <td align="center" width="100%" style="border: none"> <form method="post" name="rotater"> <script language="javascript1.1"> var photos=new Array() var text=new Array() var which=0 var what=0 <% 'Avoid starting record > total records' If CLng(startRec) > CLng(totalRecs) Then startRec = totalRecs End If 'Set the last record to display' stopRec = startRec + displayRecs - 1 'Move to first record directly for performance reason' recCount = startRec - 1 If NOT rs.EOF Then rs.MoveFirst rs.Move startRec - 1 End If recActual = 0 Do While (NOT rs.EOF) AND (recCount < stopRec) recCount = recCount + 1 If CLng(recCount) >= CLng(startRec) Then recActual = recActual + 1 %> <% x_Object = rs("Object") x_Item_No = rs("Item_No") x_Description = rs("Description") x_Image = rs("Image") %> /*Change the below variables to reference your own images. You may have as many images in the slider as you wish*/ photos[<% response.write x_Item_No %>]="<% response.write x_Image %>" /* change coresponding description */ text[<% response.write x_Item_No %>]="<% response.write x_Description %>" <% End If rs.MoveNext Loop %> window.onload=new Function("document.rotater.description.value=text[0]") function backward() { if (which>0) { window.status='' which-- document.images.photoslider.src=photos[which]; what-- document.rotater.description.value=text[what]; } } function forward() { if (which<photos.length-1) { which++ document.images.photoslider.src=photos[which] what++ document.rotater.description.value=text[what]; } else window.status='End of ' + "<% response.write x_Object %>" + ' gallery' } function type() { alert("This textbox will only display default comments") } </script> <input type="text" name="description" style="text-align: center; width: 432px; background-color: transparent; border: none; color: #ffffff"> <input type="button" value="<<Back" name="b2" onclick="backward()"> <input type="button" value="Next>>" name="b1" onclick="forward()"> <br> <a href="#" onclick="which=1;what=1;backward();return false">start over</a> </form> </td> </tr> </table> </center> </body> <% 'Close recordSet and connection' rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>