<% dim cat cat="" tablemargin = 20 tablewidth = 700 cols = 4 picalign = "center" picvalign = "top" rowspacer = 22 ' set page size ps = 12 'set chapter size chs = 10 response.buffer = "true" 'get current page ap = request.querystring("ap") if ap = "" then ap = 1 end if 'initialize 'collect input parameters searchon = replace(request.form("searchon"),"'","''") if searchon = "" then searchon = replace(request.querystring("searchon"),"'","''") end if searchfor = replace(request.form("searchfor"),"'","''") if searchfor = "" then searchfor = replace(request.querystring("searchfor"),"'","''") end if category = replace(request.form("category"),"'","''") if category = "" then category = replace(request.querystring("category"),"'","''") if category="" then category="startfotos" end if end if orderby = replace(request.form("orderby"),"'","''") if orderby = "" then orderby = replace(request.querystring("orderby"),"'","''") end if ordertype = replace(request.form("ordertype"),"'","''") if ordertype = "" then ordertype = replace(request.querystring("ordertype"),"'","''") end if displayfmt = replace(request.form("displayfmt"),"'","''") if displayfmt = "" then displayfmt = replace(request.querystring("displayfmt"),"'","''") end if if displayfmt = "" then displayfmt = "gallery" end if %> <% =title_text %>Image Gallery
our menu our wines special ngihts menu
Sprache / Language / Idioma / Langue =   picture   picture   picture   picture  
<% Response.Expires = 15 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "private" %>
" method=POST>
  VALPARAISO's IMAGE GALLERY .gif" border="0"> <% =stichwortsuche %> :   
<% ' table has to be opened like this - otherwise there is a big grey field if category="leer" then response.write "" else response.write "
" end if %>
<% cat=category 'construct sqlstm sqlstmt = "select * FROM "& cat &" WHERE publish='yes' " 'response.write sqlstmt if searchon <> "" and searchfor <>"" then sqlstmt = sqlstmt & " AND " & searchon & " LIKE '%" & searchfor & "%'" else end if '''''''''''''''''''''' Function MakeSafeForSQL(sText) If Isnull(sText) Then Exit Function MakeSafeForSQL = Replace(sText, "'", "''") End Function ' suchworteingabe ausfiltern if request.form("wortsuche")<>"" then die_suche=request.form("wortsuche") elseif die_suche="" then die_suche=request.form("wortsuche") else die_suche="" end if strSearchTerm = die_suche arrTokens = Split(strSearchTerm, " ") 'break into multiple words. i=0 ' falls etwas eingegeben wurde strOperator = "AND " For i = LBound(arrTokens) To UBound(arrTokens) sqlstmt = sqlstmt & strOperator & "caption LIKE '%" & MakeSafeForSQL(arrTokens(i)) & "%' " strOperator = "OR " Next For i = LBound(arrTokens) To UBound(arrTokens) sqlstmt = sqlstmt & strOperator & "category LIKE '%" & MakeSafeForSQL(arrTokens(i)) & "%' " strOperator = "OR " Next For i = LBound(arrTokens) To UBound(arrTokens) sqlstmt = sqlstmt & strOperator & "additionalinfo LIKE '%" & MakeSafeForSQL(arrTokens(i)) & "%' " strOperator = "OR " Next ' order DESC when page is opened (4. line from here) if orderby <> "" then ' sqlstmt = sqlstmt & " ORDER BY CINT([" & orderby & "]) " & ordertype sqlstmt = sqlstmt & " ORDER BY " & orderby & " " & ordertype else ' sqlstmt = sqlstmt & " ORDER by id DESC" sqlstmt = sqlstmt & " ORDER BY id DESC" end if response.write "" response.write "" ' run query on database conn = db_bodas Set rs=Server.CreateObject("ADODB.Recordset") rs.cursorlocation=aduseclient rs.cachesize=5 'response.write "SearchString :" & sqlstmt rs.open sqlstmt, conn if rs.EOF then response.write "" response.write "" if category="leer" then response.write "





" response.write "
"&l_sel_cat &"




" else response.write ""&l_no_pictures &"




" end if response.write "
" response.write "

Looking for a Wedding Photgrapther?



" ' ----------------------- Bescuher zählen ----------------------- 'Create a connection to our database 'conn = db_bodas Set rs = Server.CreateObject("ADODB.Recordset") sqltext = "select * FROM besucher" rs.Open sqltext,conn Dim strCount strCount = 0 If NOT rs.EOF AND NOT rs.BOF then while not rs.eof strCount = strCount + 1 rs.MoveNext Wend end if rs.close set rs = nothing response.write "
" response.write "
" & visitor & ": " & strCount+500 & "
" response.write "
Webmaster:Manfred Leister
" response.end end if recordsfound = cint(rs.RecordCount) rs.movefirst rs.pagesize = ps maxpages=cint(rs.pagecount) rc=cint(rs.pagesize) rs.absolutepage = ap ' calculate diplaying records from/to information recdispl1 = (ps * ap - (ps - 1)) if (ap * ps) > recordsfound then recdispl2 = (ap * ps) - ((ap * ps) - recordsfound) else recdispl2 = ap * ps end if ' print navigation bar if (ap mod chs) = 0 then chapter = (ap/chs) else chapter = int((ap / chs)+1) end if response.write "Chapter:" &chapter response.write "" response.write "" response.write "" if chapter<>1 then response.write "" else response.write "" end if navcount = ((chs * chapter) - (chs-1)) FOR x=1 to chs temppagevalue = (chs * chapter - chs + x) if temppagevalue > maxpages then response.write "" else response.write "" end if navcount = navcount + 1 NEXT if chs*chapter" else response.write "" end if response.write "" response.write "
" & recordsfound & " " & l_records_found & ". " & l_records_display & " " & recdispl1 & "-" & recdispl2 & "  int(ap) then response.write " bgcolor=""#A5CDF3"">" else response.write " bgcolor=""#D6E8F8"">" end if response.write "" & temppagevalue & "
" %> <% ' display records found response.write "" if displayfmt = "gallery" then DO UNTIL rs.eof OR listcnt>=rc ' check new row closerowflag = 1 if colcnt = 0 then response.write "" end if response.write "" ' spacer row response.write "" end if rs.movenext listcnt = listcnt + 1 LOOP 'close row if necessary if closerowflag = 1 then do until colcnt = cols response.write "" colcnt = colcnt + 1 loop response.write "" end if end if response.write "
" %> <% if die_suche<>"" AND rs("category")<>"" then %> <% else %> <% end if %>
<% if rs("thumbfile")<>"" OR rs("imagefile")<>"" then if rs("imagefile")<>"" then foto_name=rs("imagefile") foto_name_net=left(foto_name,len(foto_name)-4) extension=right(foto_name,4) foto_name=foto_name_net & "_small" & extension foto1=foto_name else if rs("imagefile")<>"" then foto1=rs("imagefile") end if end if response.write "

" else if rs("thumbfile")<>"" AND rs("imagefile")<>"" then else response.write "

" end if end if %> <% =dat1 %>

<% ' Graphik für Gästekommentare einfügen conn = db_bodas Set rs2=Server.CreateObject("ADODB.Recordset") sqlstmt2="select * from add_comment WHERE publish='yes' AND category ='" & category & "' AND bild_id=" & rs("id") 'response.write sqlstmt2 rs2.open sqlstmt2, conn if rs2.eof then else if rs2("bild_description_" & session("lang") & "")<>"" then response.write "" & ca_guest_comment & "', TEXTCOLOR, '#0000cc', WIDTH, 258, HEIGHT, 147, BACKGROUND, 'transbox.gif', PADX, 70, 30, PADY, 40, 20); return true;"" onmouseout=""nd(); return true;"">" else end if end if %>
   <% =dat3 %>
   <% =l_photographer %> : <% =rs("photographer") %>
   <% =l_photo %> : <% =rs("caption")%>
   <% =l_wedding %> : <% cat=rs("category") conn3 = db_bodas Set rs3=Server.CreateObject("ADODB.Recordset") sqlstmt3="select * from category WHERE categoryname='" & cat & "'" 'response.write sqlstmt3 rs3.open sqlstmt3,conn3 response.write rs3("cat_description_" & session("lang") & "") %>  
"> * <% =l_view %>
<% response.write " " colcnt = colcnt + 1 ' check end row if colcnt > cols-1 then colcnt = 0 closerowflag = 0 response.write "
 
" response.write "" response.write "" if chapter<>1 then response.write "" else response.write "" end if navcount = ((chs * chapter) - (chs-1)) FOR x=1 to chs temppagevalue = (chs * chapter - chs + x) if temppagevalue > maxpages then response.write "" else response.write "" navcount = navcount + 1 end if NEXT response.write "
" & recordsfound & " " & l_records_found & ". " & l_records_display & " " & recdispl1 & "-" & recdispl2 & "  int(ap) then response.write " bgcolor=""#A5CDF3"">" else response.write " bgcolor=""#D6E8F8"">" end if response.write "" & temppagevalue & "
" ' cleanup rs.close set rs = nothing %>


<% 'Create Our ServerVariables and Store them to a variable %> <% site = Request.ServerVariables("http_refERER")%> <% ip = Request.ServerVariables("REMOTE_ADDR")%> <% host = Request.ServerVariables("REMOTE_HOST")%> <% strNothing = "Unknown" thehour=Hour(now) + 7 ' Here we will add 6 to hour in server if thehour>12 then thehour=thehour-12 end if Theminute=minute(now) if Theminute<10 then Theminute="0" & Theminute end if Thesecond=second(now) if Thesecond<10 then Thesecond="0" & Thesecond end if local_time=thehour & ":" & Theminute & ":" & Thesecond %> <% 'Create a connection to our database conn = db_bodas Set rst = Server.CreateObject("ADODB.Recordset") sqltext = "select * FROM besucher" rst.Open sqltext,conn,3,3 %> <% rst.ADDNEW if site = "" then rst("site")= "Unbekannt" else rst("site") = site end if rst("ip") = ip rst("host") = host rst("date") = Right("0" & Day(Now), 2) & "/" & Right("0" & month(Now), 2) & "/" & Right("0" & Year(Now), 4) ' zeit = time() ' zeit=zeit+6 rst("time") = local_time rst("sprache")=session("lang") ' rst("time")=zeit rst.Update ' ----------------------- Bescuher zählen ----------------------- 'Create a connection to our database 'conn = db_bodas Set rs = Server.CreateObject("ADODB.Recordset") sqltext = "select * FROM besucher" rs.Open sqltext,conn strCount = 0 If NOT rs.EOF AND NOT rs.BOF then while not rs.eof strCount = strCount + 1 rs.MoveNext Wend end if rs.close set rs = nothing response.write "


" response.write "
" & visitor & ": " & strCount+500 & "
" response.write "
Webmaster:Manfred Leister
" %>
© Valparaiso 2008 - Webmaster: Manfred Leister Webpage: www.mlp2.com