adapitar slideshow

[paulojorge3l 0]

To adapitando um slide show e to com um problema o slide tá funcionando blzinho só quero agora colocar o link para o visitante clicar mais não sei onde e quero colocar um botão pra voltar ou avançãr o slide alguem pode me ajudar???? abaixo o codigo que to usando e tá funcionando onde está o id=CaptionBox é onde ele imprime o texto da noticia é onde quero colocar o link para a noticia completa.

 

rs.Open "SELECT * FROM tab_noticia ORDER BY id_noticia desc", Conexao ,3,3Response.Write("<script>")Response.Write(vbnewline)Response.Write("var SlideShowSpeed = 5000;")Response.Write(vbnewline)Response.Write("var CrossFadeDuration = 3;")Response.Write(vbnewline)Response.Write("var Menu = new Array(); ")Response.Write(vbnewline)Response.Write("var Picture = new Array();")Response.Write(vbnewline)Response.Write("var Titulo = new Array();")Response.Write(vbnewline)Response.Write("var Caption = new Array();")Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("Menu[1]  = 'destaque/menu001.jpg';")Response.Write(vbnewline)Response.Write("Menu[2]  = 'destaque/menu002.jpg';")Response.Write(vbnewline)Response.Write("Menu[3]  = 'destaque/menu003.jpg';")Response.Write(vbnewline)Response.Write("Menu[4]  = 'destaque/menu004.jpg';")Response.Write(vbnewline)Response.Write(vbnewline)for x = 1 to 4	pic = pic & vbnewline & "Picture["&x&"] = 'img/"&rs.fields("img_noticia")&"';"	tit = tit & vbnewline & "Titulo["&x&"] = """&rs.fields("tipo_noticia")&""";"	cap = cap & vbnewline & "Caption["&x&"] = """&left(rs.fields("desc_noticia"),15)&"..."";"	rs.movenextnextResponse.Write(pic)Response.Write(vbnewline)Response.Write(vbnewline)Response.Write(tit)Response.Write(vbnewline)Response.Write(vbnewline)Response.Write(cap)Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("var tss;")Response.Write(vbnewline)Response.Write("var iss;")Response.Write(vbnewline)Response.Write("var tssMenu;")Response.Write(vbnewline)Response.Write("var issMenu;")Response.Write(vbnewline)Response.Write("var jss = 1;")Response.Write(vbnewline)Response.Write("var pss = Picture.length-1;")Response.Write(vbnewline)Response.Write("var pssMenu = Menu.length-1;")Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("var preLoad = new Array();")Response.Write(vbnewline)Response.Write("for (iss = 1; iss < pss+1; iss++){")Response.Write(vbnewline)Response.Write("preLoad[iss] = new Image();")Response.Write(vbnewline)Response.Write("preLoad[iss].src = Picture[iss];}")Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("var preLoadMenu = new Array();")Response.Write(vbnewline)Response.Write("for (issMenu = 1; issMenu < pssMenu+1; issMenu++){")Response.Write(vbnewline)Response.Write("preLoadMenu[issMenu] = new Image();")Response.Write(vbnewline)Response.Write("preLoadMenu[issMenu].src = Menu[issMenu];}")Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("function runSlideShow(){")Response.Write(vbnewline)Response.Write("	if (document.all){")Response.Write(vbnewline)Response.Write("		document.images.PictureBox.style.filter=""blendTrans(duration=2)"";")Response.Write(vbnewline)Response.Write("		document.images.PictureBox.style.filter=""blendTrans(duration=CrossFadeDuration)"";")Response.Write(vbnewline)Response.Write("		document.images.PictureBox.filters.blendTrans.Apply();")Response.Write(vbnewline)Response.Write("	}")Response.Write(vbnewline)Response.Write("	if (document.all){")Response.Write(vbnewline)Response.Write("		document.images.MenuBox.style.filter=""blendTrans(duration=2)"";")Response.Write(vbnewline)Response.Write("		document.images.MenuBox.style.filter=""blendTrans(duration=CrossFadeDuration)"";")Response.Write(vbnewline)Response.Write("		document.images.MenuBox.filters.blendTrans.Apply();")Response.Write(vbnewline)Response.Write("	}")Response.Write(vbnewline)Response.Write("	document.images.PictureBox.src = preLoad[jss].src;")Response.Write(vbnewline)Response.Write("	document.images.MenuBox.src = preLoadMenu[jss].src;	")Response.Write(vbnewline)	Response.Write(vbnewline)Response.Write("	if (document.getElementById) document.getElementById(""CaptionBox"").innerHTML= Caption[jss];")Response.Write(vbnewline)Response.Write("	if (document.getElementById) document.getElementById(""TituloBox"").innerHTML= Titulo[jss];")Response.Write(vbnewline)Response.Write("	if (document.all) document.images.PictureBox.filters.blendTrans.Play();")Response.Write(vbnewline)Response.Write("	if (document.all) document.images.MenuBox.filters.blendTrans.Play();")Response.Write(vbnewline)Response.Write(vbnewline)Response.Write("	jss = jss + 1;")Response.Write(vbnewline)Response.Write("	if (jss > (pss)) jss=1;")Response.Write(vbnewline)Response.Write("		tss = setTimeout('runSlideShow()', SlideShowSpeed);")Response.Write(vbnewline)Response.Write("}")Response.Write(vbnewline)Response.Write("</script>")%><link href="estilo/estilo.css" rel="stylesheet" type="text/css"><style type="text/css"><!--.style1 {	color: #FFFFFF;	font-weight: bold;}--></style></head><body onload=runSlideShow()><table width="355" height="350" border=0 cellpadding=0 cellspacing=0>  <tr>	<td width=450 valign="top" bgcolor="#333333">	  <table width="210" height="158" border="0" cellpadding="2" cellspacing="2">		<tr>		  <td width="202" height="140" align="center" valign="bottom"><div align="center"><img src="destaque/carregando.jpg" name=PictureBox width=185 height=120 border="5" style="border-color:#FFFFFF; "></div></td>		</tr>		<tr>		  <td valign="top"><table width="100%"  border="0" cellpadding="0" cellspacing="0" class="TextoPadrao">			  <tr>				<td height="13" align=left id=TituloBox style="font-family:verdana, arial; font-size:12px; color:#FFFFFF;">				  <div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold;">  </div></td>			  </tr>			  <tr>				<td align=left style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold;" id=CaptionBox>				  <div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold; height:40px"> </div></td>			  </tr>			  <tr>				<td valign="top"><%			  if not rs.eof then				  rs.movenext			  end if			  %>				</td>			  </tr>		  </table></td>		</tr>		<tr>		  <td valign="top"><div align="center"><img src="destaque/menu.jpg" name=MenuBox width=201 height=22 ></div></td>		</tr>	  </table>	 </td>  </tr>  <tr>  </tr></table>

[paulojorge3l 0]

achei onde colocar o link na linha

 

cap = cap & vbnewline & "Caption["&x&"] = ""<a href='noticia/texto.asp?id="&rs.fields("id_noticia")&"'>"&left(rs.fields("desc_noticia"),15)&"...</a>"";"