<%
' =============================
' Get Data from Table
' =============================
' Set variables
DIM myDSN, mySQL, conntemp, rstemp, aMonthValues
' The next lines are for Access DBs - rename the DB name to match yours
' Use this next one for Access 97
' myDSN=" DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/fpdb/myDatabase.mdb" )
' Uncomment the next one for Access 2K / XP
myDSN =" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../capfin/fpdb/capital.mdb" )

' Put your SQL next
mySQL="SELECT 'Project_Images/'+[FileName] AS Expr1 FROM Project_Info " & _
      "INNER JOIN Files ON (Project_Info.Phase = Files.Phase) AND " & _
      "(Project_Info.Sub_Project = Files.Sub_Project) AND " & _
      "(Project_Info.Project = Files.Project)"
' Build & connect
set conntemp=Server.CreateObject("ADODB.Connection")
conntemp.open myDSN
set rstemp=conntemp.execute(mySQL)
If  rstemp.eof then
   picture(0) = "project_Images/blank.jpg"
end if

' grab records
picture=rstemp.getrows

Call Cleanup

SUB Cleanup
   rstemp.close
   set rstemp=nothing
   conntemp.close
   set conntemp=nothing
END SUB

for i = 0 to ubound(picture,2)
	response.write "<p>" & picture(i) & "</p>
next 1
' =========================
' End of get Data
' =========================
%>

<script>

// (C) 2002 www.CodeLifter.com
// http://www.codelifter.com
// Free for all users, but leave in this header.

// ==============================
// Set the following variables...
// ==============================

// Set the slideshow speed (in milliseconds)
var SlideShowSpeed = 3000;

// Set the duration of crossfade (in seconds)
var CrossFadeDuration = 3;

var Picture = new Array(); // don't change this
//var Caption = new Array(); // don't change this

// Specify the image files...
Picture = <%picture%> 

// =====================================
// Do not edit anything below this line!
// =====================================

var tss;
var iss;
var jss = 0;
var pss = Picture.length-1;

var preLoad = new Array();
for (iss = 0; iss < pss+1; iss++){
preLoad[iss] = new Image();
preLoad[iss].src = Picture[iss];}

function runSlideShow(){
if (document.all){
document.images.PictureBox.style.filter="blendTrans(duration=2)";
document.images.PictureBox.style.filter="blendTrans(duration=CrossFadeDuration)";
document.images.PictureBox.filters.blendTrans.Apply();}
document.images.PictureBox.src = preLoad[jss].src;
if (document.all) document.images.PictureBox.filters.blendTrans.Play();
jss = jss + 1;
if (jss > (pss)) jss=1;
tss = setTimeout('runSlideShow()', SlideShowSpeed);
}
</script>

myDSN =" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../capfin/fpdb/capital.mdb" )

' Put your SQL next
mySQL="SELECT 'Project_Images/'+[FileName] AS Expr1 FROM Files"
' Build & connect
set conntemp=Server.CreateObject("ADODB.Connection")
conntemp.open myDSN
set rstemp=conntemp.execute(mySQL)
If  rstemp.eof then
   picture(0) = "project_Images/blank.jpg"
else
	' grab records
	picture=rstemp.getrows
end if

Call Cleanup

SUB Cleanup
   rstemp.close
   set rstemp=nothing
   conntemp.close
   set conntemp=nothing
END SUB

' =========================
' End of get Data
' =========================

'==========================
'Create javascript through vb
'==========================

response.write "<p>" & ubound(picture,2) & "</p>"
response.write("<script>" & vbcrlf)
response.write("var SlideShowSpeed = 3000;" & vbcrlf)
response.write("var CrossFadeDuration = 3;" & vbcrlf)
response.write("var Picture = new Array();" & vbcrlf)
for i = 1 to ubound(picture,2)
	response.write("Picture[" & i &"]  = '" & picture(i) & "'" & vbcrlf)	
next
response.write("var tss;" & vbcrlf)
response.write("var iss;" & vbcrlf)
response.write("var jss = 0;" & vbcrlf)
response.write("var pss = Picture.length-1;" & vbcrlf)
response.write("var preLoad = new Array();" & vbcrlf)
response.write("var preLoad = new Array();" & vbcrlf)
response.write("for (iss = 0; iss < pss+1; iss++){" & vbcrlf)
response.write("preLoad[iss] = new Image();" & vbcrlf)
response.write("function runSlideShow(){" & vbcrlf)
response.write("if (document.all){" & vbcrlf)
response.write("document.images.PictureBox.style.filter='blendTrans(duration=2)';" & vbcrlf)
response.write("document.images.PictureBox.style.filter='blendTrans(duration=CrossFadeDuration)';" & vbcrlf)
response.write("document.images.PictureBox.filters.blendTrans.Apply();}" & vbcrlf)
response.write("document.images.PictureBox.src = preLoad[jss].src;" & vbcrlf)
response.write("if (document.all) document.images.PictureBox.filters.blendTrans.Play();" & vbcrlf)
response.write("jss = jss + 1;" & vbcrlf)
response.write("if (jss > (pss)) jss=1;" & vbcrlf)
response.write("tss = setTimeout('runSlideShow()', SlideShowSpeed);" & vbcrlf)
response.write("}" & vbcrlf)
response.write("</script>" & vbcrlf)
%>

§þk¥

• Database / DRW help Check out the Tutorials for Frontpage Databases
  
• Forum FAQ' s
  
• Developers Edition Spooky Login User Registration and Management tool
  
• Personalized Frontpage Hosting