<% response.buffer = "true" id = int(request.querystring("id")) ' database connection conn = db_bodas category=request.querystring("category") strSqlStmt = "select * FROM " & category & " WHERE id = " & id 'response.write strSqlStmt Set rs=Server.CreateObject("ADODB.Recordset") rs.open strSqlStmt, conn if rs.eof then response.write "Sorry, No photo avialable." response.End end if %> <% =title_text %>Image ">

Idioma / Sprache / Langue / Language =        
.gif"> .gif" border="0">

<% strSqlStmt2 = "select * FROM " & category & " WHERE id = " & id-1 'response.write strSqlStmt Set rs2=Server.CreateObject("ADODB.Recordset") rs2.open strSqlStmt2, conn if rs2.eof then else ziel=rs2("id") response.write "" end if %> <% ' get screen size 'Declare variables Dim strScreenWidth Dim strScreenHeight 'Read the cookies with the width and height strScreenWidth = Request.Cookies("ScreenWidth") strScreenHeight = Request.Cookies("ScreenHeight") 'If not cookie was made then say the screen size is 800x600 If strScreenWidth = "" Then strScreenWidth = 800 'If strScreenHeight = "" Then strScreenHeight = 600 if strScreenWidth>1000 then strScreenWidth = 1000 %> <% bild=rs("imagefile") if bild<>"" then else bild="image_replacer.jpg" end if %>
picture picture picture
picture picture
"picture
<% =rs("caption")%>
picture picture picture
<% strSqlStmt3 = "select * FROM " & category & " WHERE id = " & id+1 'response.write strSqlStmt Set rs3=Server.CreateObject("ADODB.Recordset") rs3.open strSqlStmt3, conn, 3,3 if rs3.eof then else ziel=rs3("id") response.write "" end if %>


<% response.write "" response.write "" response.write "" Set rs2=Server.CreateObject("ADODB.Recordset") sqlstmt="select * from add_comment WHERE publish='yes' AND bild_id=" & id 'response.write sqlstmt rs2.open sqlstmt, conn if rs2.eof then else do until rs2.eof response.write "" rs2.movenext loop end if response.write "" response.write "" response.write "

" response.write "" & ca_descripcion & "" response.write ":
" response.write "" response.write rs("bild_description_" & session("lang") & "") response.write "

" response.write "" & l_comment3 &": " & rs2("firstname") & " " & rs2("lastname") & " (" & rs2("datemod") & ")" & "
" response.write "" & rs2("bild_description_"&session("lang")&"") & "" response.write "
" %>    <% =l_comment %>
" method=POST>
<% =stichwortsuche2 %> :