<%@ enablesessionstate = false Language=VBScript %>
<% option explicit
Response.Buffer = true
%>
<!-- #include file="../include/errorado.inc" -->
<html>
<head>
<title>Domainname</title>
<link type="text/css" rel="stylesheet" href="../styles/main.css">
</head>
[b]
<% InitPage %>
<table border="0" cellpadding="0" cellspacing="0" width="750"> <!-- this table constrains the size of the entire page to 800 pixels wide -->
<tr>
<td valign="middle" align="center" width="100"></td> <!-- this column makes space for the menu -->
<td valign="middle" align="center" width="50"></td> <!-- this column makes space between the menu and page content -->
<td valign="middle" align="center" width="600"> <!-- this column holds the header graphic -->
<img border="0" src="../images/newlogosmall1.jpg" width="375" height="83">
</td>
</tr>
<tr>
<td valign="middle" align="center" width="100">
<!-- insert the content page menu here -->
<!--#include file="../include/content_menu.inc" -->
</td>
<td width="50"></td>
<td valign="middle" align="center" width="600">
<!-- put all your page content in this table column -->
<font size=+2>
Layouts
</font>
Click on an image to see a larger version in a new window.
Want to share your layout? Upload it <a href="../content/piclogin.asp">here</a>
<% getimages %>
</td>
</tr>
</table>
<!--include file="../include/footer.asp"-->
</body>
</html>
<%
sub Initpage
end sub
sub GetImages
on error resume next
dim objconn, objrst
dim strsql
dim intColCount
dim strTemp
set objconn = server.CreateObject("adodb.connection")
objconn.Mode = 3
objconn.Open application("gallery_conn_str")
if err then
Response.Write erroradoreport("Error opening gallery database connection",objconn,strsql,"
")
objconn.Close
set objconn = nothing
Response.End
end if
strsql = "select * from images;"
set objrst = server.CreateObject("adodb.recordset")
objrst.Open strsql, objconn,,,1
if err then
Response.Write erroradoreport("Error retrieving layouts from database",objconn,strsql,"
")
objconn.Close
set objconn = nothing
objrst.Close
set objrst = nothing
Response.End
end if
'loop through the recordset, displaying the images
if objrst.EOF then
Response.Write "There are no images in the database to display!"
else
'prepare the beginning table tags
Response.Write "<table border=0>"
end if
do until objrst.EOF
Response.Write "<tr>"
intcolcount = 1
do until intcolcount > 3
Response.Write "<td valign=middle align=center>"
'strTemp = "<a href=viewlayout.asp?id=" & cstr(objrst.Fields("id").value) & """ target=_top><img src=""" & objrst.Fields("filepath").Value & "/" & objrst.Fields("thumbnail").Value & """ border=0>
" & objrst.Fields("title").Value & " - " & objrst.Fields("description").Value & "</a>"
'Response.Write "<a href=viewlayout.asp?id=" & cstr(objrst.Fields("id").value) & " target=_top><img src=""" & objrst.Fields("filepath").Value & "/" & objrst.Fields("thumb1").Value & """ border=0>
" & objrst.Fields("title").Value & "</a>"
' strtemp = "<a href=""viewlayout.asp?id=""" & cstr(objrst.fields("id").value) & " target=""_blank""><img src=""" & objrst.fields("filepath").value & "/" & objrst.fields("thumb1").value & """ border=0>
" & objrst.fields("title").value & "</a>"
Response.Write "<a href=""viewlayout.asp?id=" & cstr(objrst.fields("id").value) & """ target=""_blank""><img src=""" & objrst.fields("filepath").value & "/" & objrst.fields("thumb1").value & """ border=0>
" & objrst.fields("title").value & "</a>"
Response.Write "</td>"
objrst.MoveNext
if not objrst.EOF then
intcolcount = intcolcount + 1
if intcolcount > 3 then
Response.Write "</tr>"
end if
else
intcolcount = 4
Response.Write "</tr>"
end if
loop
loop
Response.Write "</table>"
objrst.Close
set objrst = nothing
objconn.Close
set objconn = nothing
on error goto 0
end sub
%>
****Global.asa is as follows****
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
sub application_onstart
if instr(1,server.MapPath("."),"root") then
application("siteurl") = "http://www.domainname.com/"
else
application("siteurl") = "/domainname/"
end if
application("maillist_conn_str") = server.MapPath("_database/maillist.mdb")
application("gallery_conn_str") = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("_database/gallery.mdb")
end sub
</SCRIPT>
I'm thinking of hardcoding the database connection instead of using the global.asa????
Thanks
Chaps