<% sDIR = request.QueryString("dir") sIMAGE = request.QueryString("image") sYEAR = mid(sDIR,1,4) 'response.write ( sYEAR & "
" ) Set oDB = Server.CreateObject("ADODB.Connection") oDB.Open "Driver={MySQL ODBC 3.51 Driver};SERVER=83.168.227.169;DATABASE=db1129556_koholmen;USER=u1129556_admin;PASSWORD=DEJ-994;OPTION=3;" dim SQLstring dim sString dim sHITS SQLstring = "UPDATE Foton SET HITS = HITS +1 where WEBID = 1 and DIR = '" & sDIR & "' and IMAGE = '" & sIMAGE &"'" 'response.write ( SQLstring & "
" ) Set RS = oDB.Execute(SQLstring) SQLstring = "select DIR, IMAGE, HITS from Foton where WEBID = 1 and DIR = '" & sDIR & "' and IMAGE = '" & sIMAGE &"'" 'response.write ( SQLstring & "
" ) Set RS = oDB.Execute(SQLstring) 'response.write ( RS(0) & "
" ) sHITS= RS("HITS") SQLstring = "select max(IMAGE) from Foton where WEBID = 1 and DIR = '" & sDIR & "' and IMAGE < '" & sIMAGE &"'" 'response.write ( SQLstring & "
" ) Set RS = oDB.Execute(SQLstring) 'response.write ( RS(0) & "
" ) sPREV = RS(0) SQLstring = "select min(IMAGE) from Foton where WEBID = 1 and DIR = '" & sDIR & "' and IMAGE > '" & sIMAGE &"'" 'response.write ( SQLstring & "
" ) Set RS = oDB.Execute(SQLstring) 'response.write ( RS(0) & "
" ) sNEXT = RS(0) response.write ( "
" ) if len(sPREV) > 0 then response.write ( "" ) response.write ( "" ) if len(sNEXT) > 0 then response.write ( "") response.write ( "
" ) response.write ( "
" ) response.write ( "
" ) response.write ( "") response.write ( "
" ) response.write ( "
" ) response.write ( "
" ) response.write ( " IMAGE: " & sIMAGE & " visad: " & sHITS) response.write ( "
" ) oDB.close %>