Crash1hd
03-13-2003, 07:03 AM
I am trying to create a way to grab all the image links on a page and put them into a table so as to be able to view them one at a time but I want to be able to use a pop up field to dynamically change the links so that if there is more links say sets of images that start at 01 and goto 09 I can change acordingly or one that does it automatically!
<html><head><title>Image Grabber</title>
</head>
<body background="image.gif">
<%
//create connection to database with dns-less connection
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
StrConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("Numbers.mdb")
Conn.Open(StrConn)
//Visitor information and Message was now saved to database; To create a simple table for displaying all data from database
//The ORDER BY DateField DESC is what makes everything show up newest to oldest remove to have it go oldest to newest
Set RS = Conn.Execute("select * from Numbers")
%>
<%
do until RS.EOF
response.write "<A href=http://www.site.com/javascript:if(Qr)document.write(Qr);/0" & RS("NumberID") & ".jpg><img src=www.site.com/javascript:if(Qr)document.write(Qr);/0" & RS("NumberID") & ".jpg width='350' height='250'></a>"
RS.movenext
Loop
%>
<script>
Qr=document.selection.createRange().text;if(!Qr){void(Qr=prompt('Keywords...',''))}
</script>
</body>
</html>
Maybe there is a better method
<html><head><title>Image Grabber</title>
</head>
<body background="image.gif">
<%
//create connection to database with dns-less connection
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
StrConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("Numbers.mdb")
Conn.Open(StrConn)
//Visitor information and Message was now saved to database; To create a simple table for displaying all data from database
//The ORDER BY DateField DESC is what makes everything show up newest to oldest remove to have it go oldest to newest
Set RS = Conn.Execute("select * from Numbers")
%>
<%
do until RS.EOF
response.write "<A href=http://www.site.com/javascript:if(Qr)document.write(Qr);/0" & RS("NumberID") & ".jpg><img src=www.site.com/javascript:if(Qr)document.write(Qr);/0" & RS("NumberID") & ".jpg width='350' height='250'></a>"
RS.movenext
Loop
%>
<script>
Qr=document.selection.createRange().text;if(!Qr){void(Qr=prompt('Keywords...',''))}
</script>
</body>
</html>
Maybe there is a better method