% 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 %>
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 %> |
|
<% 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 "" & ca_descripcion & ""
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 "|
"
response.write "" & l_comment3 &": " & rs2("firstname") & " " & rs2("lastname") & " (" & rs2("datemod") & ")" & " " response.write "" & rs2("bild_description_"&session("lang")&"") & "" response.write " |