<%
Function RandomImage(strPath)
Randomize()
If Right(strPath, 1) <> Chr(47) Then strPath = strPath & Chr(47)
strPhysical = Server.MapPath(strPath)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysical)
Set objFiles = objFolder.Files
For Each objFile in objFiles
strFile = LCase(objFile.Name)
strFiles = strFiles & strFile & vbTab
Next
strImages = Split(strFiles, vbTab)
If UBound(strImages) > 1 Then
RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages)))
End If
End Function
%>
Thunderhead Brewing’s award winning beers and fire baked food are a satisfying compliment to any night on the town. Take a tour, grab a bite, shoot some pool, or just relax with a pint. You can’t go wrong when you stop by this Kearney Original. Open seven days a week, 11:00 AM to 1:00 AM.
