<% =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 %>



	" <% =rs("caption")%>

<% 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 %>