LS,
Ik wil graag het volgende laten uitvoeren door mijn script, ik krijg dit echter niet aan de praat.
Bedoeling:
Na een keuze van categorie moeten in deze pagina de betreffende id's oplopend geselecteerd worden en geschreven worden in het javascript.
Script:
<%
Dim adoconDia
Dim rsDia
Dim strSQLDia
Set adoconDia = Server.CreateObject("ADODB.Connection")
adoconDia.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("_mdb/_afbeeldingen.mdb")
Set rsDia = Server.CreateObject("ADODB.Recordset")
strSQLDia = "SELECT * FROM tblafbeeldingen WHERE categorie= '" & Request.Querystring("categorie") & "'"
rsDia.CursorType = 3
rsDia.Open strSQLDia, adoconDia
<script language="JavaScript">
NewImg = new Array (
"_upload/<%=rsDia("afbeelding") %>",
"images/2.gif",
"images/3.gif"
);
var ImgNum = 0;
var ImgLength = NewImg.length - 1;
var delay = 3000;
var lock = false;
var run;
function chgImg(direction) {
if (document.images) {
ImgNum = ImgNum + direction;
if (ImgNum > ImgLength) {
ImgNum = 0;
}
if (ImgNum < 0) {
ImgNum = ImgLength;
}
document.slideshow.src = NewImg[ImgNum];
}
}
function auto() {
if (lock == true) {
lock = false;
window.clearInterval(run);
}
else if (lock == false) {
lock = true;
run = setInterval("chgImg(1)", delay);
}
}
</script>
%>
Bij voorbaat dank
Ik wil graag het volgende laten uitvoeren door mijn script, ik krijg dit echter niet aan de praat.
Bedoeling:
Na een keuze van categorie moeten in deze pagina de betreffende id's oplopend geselecteerd worden en geschreven worden in het javascript.
Script:
<%
Dim adoconDia
Dim rsDia
Dim strSQLDia
Set adoconDia = Server.CreateObject("ADODB.Connection")
adoconDia.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("_mdb/_afbeeldingen.mdb")
Set rsDia = Server.CreateObject("ADODB.Recordset")
strSQLDia = "SELECT * FROM tblafbeeldingen WHERE categorie= '" & Request.Querystring("categorie") & "'"
rsDia.CursorType = 3
rsDia.Open strSQLDia, adoconDia
<script language="JavaScript">
NewImg = new Array (
"_upload/<%=rsDia("afbeelding") %>",
"images/2.gif",
"images/3.gif"
);
var ImgNum = 0;
var ImgLength = NewImg.length - 1;
var delay = 3000;
var lock = false;
var run;
function chgImg(direction) {
if (document.images) {
ImgNum = ImgNum + direction;
if (ImgNum > ImgLength) {
ImgNum = 0;
}
if (ImgNum < 0) {
ImgNum = ImgLength;
}
document.slideshow.src = NewImg[ImgNum];
}
}
function auto() {
if (lock == true) {
lock = false;
window.clearInterval(run);
}
else if (lock == false) {
lock = true;
run = setInterval("chgImg(1)", delay);
}
}
</script>
%>
Bij voorbaat dank