<% Dim adoCon Dim rs Dim strSQL Dim photo Dim previous dim photourl dim indexvalue dim urllength dim linkphoto dim newlength Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./godwindanielphotography/gdphotography.mdb") photo = Request.QueryString("PhotoId") strSQL = "SELECT * FROM digitalimages WHERE index='latest'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, adoCon photourl = rs("url") indexvalue = rs("index") urllength = len(photourl) newlength = urllength - 2 linkphoto = right(photourl, newlength) %>
<% response.write("") %>

... more Digital Photography