Inserire in pagina asp link a pag. html del sito

[Albaro]

Vorrei permettere a chi sta guardando l'album foto su pagina asp di ritornare alla pagina html dedicata alle foto, quale script devo inserire?
Ho provato quello che uso tra pag html ma non funziona.
Buone Feste.

[Roby_72]

E' un semplice link.
Deve funzionare anche quello che utilizzi di solito.

Roby

[Albaro]

A me piace usare le foto da cliccare come link ma appare la cornice vuota con la classica x rossa, il riferimento alla foto è lo stesso : <img src= "img/dietro50.gif width="50" height="35">.
Devo forse copiare la gif in una altra cartella oltre a quella solita img per essere trovata dalla pagina asp?
Non è importante perchè il link adesso funziona e posso sostituire la gif con la semplice scritta "indietro" ma è un buon motivo per iniziare ad imparare l'asp.

[willybit]

non centra asp... è normale html
tu stai usando percorsi relativi (relativi alla posizione dove si trova la pagina).
metti un percorso assoluto

[img]/img/dietro50.gif width=[/img]

[Roby_72]

Se vedi la X rossa il link alla foto è sbagliato.
Se poi ci fai vedere anche la pagina che ti da errore facciamo prima.


Roby

[tanzem]

Non è ASp ma è HTML

comunque hai dimenticato un apice dopo l'indirizzo dell'immagine :

<img src= "img/dietro50.gif"  width="50" height="35">.

[Albaro]

ma ho sbagliato solo a digitare nel post, non ho usato il copia incolla.
Dato che Roby mi invita a copiare le pagina lo faccio volentieri, pensavo non fosse permesso incollare intere pagine.
Il link è presente due volte xché stavo provando :

<<<<<<<<<<!--
function jumppage(sel)
{
var i = sel.selectedIndex
self.location.href = sel.options[i].value
}
// -->
</script>
<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function openGalleryWindow(url) {
if (document.all)
var xMax = screen.width, yMax = screen.height;
else
if (document.layers)
var xMax = window.outerWidth, yMax = window.outerHeight;
else
var xMax = 800, yMax=600;
var xOffset = (xMax - 200)/2, yOffset = (yMax - 200)/2;
var xOffset = 100, yOffset = 0;

popupWin = window.open(url,'new_page','width=700,height=535,s creenX='+xOffset+',screenY='+yOffset+',top='+yOffs et+',left='+xOffset+',scrollbars=auto,toolbars=no, menubar=no,resizable=yes')
}
// done hiding -->
</script>

<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="100%" id="AutoNumber1">
<tr>

<td align="center" width="100%">
<form action=<%=PopFile%> method="POST">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="31">
<tr>
<td width="100%" height="31" bgcolor="#009900">
<p align="center">
<font face="comic sans ms" size="5" color="#FFFF66">" Le Vostre Foto " " Le Mie Foto "</td>
</tr>
</table>
<font face="<%= strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strBaseFontColor %>">


</font>
<font face="comic sans ms" size="1" color="#000080">Seleziona la Categoria -&gt;</font><font face="<%= strDefaultFontFace %>" size="<% =strFooterFontSize %>" color="<% =strBaseFontColor %>">
<select name="go" onChange="jumppage(this);" size=1>
<%
ShowSub = request("ShowSub")
ShowPic = request("ShowPic")
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.write "<option "
If ShowSub=Folder.Name Then
Response.Write "selected "
End if
Response.Write"value='" & CurFile & "?ShowSub="
Response.Write(Replace(Folder.Name, " ", "%20"))
response.write "'>"
Response.Write(Folder.Name & "</option>")
If ShowSub <= " " Then
ShowSub = Folder.Name
End if
End if
Next
Set objFSO = Nothing
%>
</select><h3></h3>
</form>
</td>
</tr>
</table>


<%
If ShowPic > " " then
ShowPic = Replace(ShowPic, " ", "%20")
Response.Write "<a href='JavaScript:history.go(-1)'>[img]" & ShowPic & "[/img]

<font face=""verdana"" size=""1"">Go Back</a>"
Else
%>
<table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#000000" width="100%" id="AutoNumber1">
<tr>
<%
strPhysicalPath = Server.MapPath(".\" & ShowSub)
If ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files



'Get the number of pictures in the subdirectory
intTotPics = 0
For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
intTotPics = intTotPics + 1
End if
Next

'Get the total number of pages in the subdirectory
If (intTotPics/intPicsPerPage) = (int(intTotPics/intPicsPerPage)) Then
intTotPages = int(intTotPics/intPicsPerPage)
Else
intTotPages = int(intTotPics/intPicsPerPage)+1
End If
Redim strPicArray(2,intTotPics)

'Store picture file names in an array
x = 0
For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
strPicArray(0,x) = objFileItem.Name
strPicArray(1,x) = Cstr(int(x/intPicsPerPage)+1)
x = x + 1
End if
Next

'Determine if there are multiple pages and if so, display page numbers.
If intTotPages > 1 Then
Response.Write "<td colspan='" & intPicsPerRow & "' align='center'><font face='Verdana,Arial' size='1'>Page:"
For x = 1 to intTotPages
If x = intPage Then
Response.Write "</font><font face='Arial' size='2'>" & x & "</font><font face='Arial' size='1'>"
Else
Response.Write "" & x & ""
End If
Next
Response.Write "</font></td>"
Response.Write "</tr><tr><td></td></tr><tr>"
End If


For x = 0 to UBound(strPicArray,2)-1
If CInt(strPicArray(1,x)) = intPage Then
ShowPic = Replace(strPicArray(0,x), " ", "%20")
Response.write "<td align='center' width='25%'><a href=""JavascriptpenGalleryWindow('" & PopFile & "?ShowPic=" & ShowSub & "/" & ShowPic & "')"""
Response.write "
"
Response.Write("[img]" & ShowSub & "/" & strPicArray(0,x) & "[/img] ")
Response.Write("
<font color=""" & strBaseFontColor & """>" & Mid(strPicArray(0,x),1,Len(strPicArray(0,x))-4) & "</font>")
Response.write "</a></td>" & vbcrlf

PictureNo = PictureNo + 1
If PictureNo=intPicsPerRow Then
Response.write "</tr><tr>"
PictureNo = 0
End if
End If
Next



Set objFSO = Nothing
End if
%>
</tr>
</table>
<%
End if
%>
</center>

<table width="100%">
<tr>
<td width="50%" align="center"> <font size=6 color= "red">In

<img src= "img/dietro50.gif" width="50" height="35"></p>
<img src= "img/dietro50.gif" width="50" height="35"></A>
</td></tr></table>


INDIETRO</p>

</html><<<<<<<<<

[Roby_72]

Scusa ma il problema quale sarebbe?
Che clicchi sulla foto e in popup non vedi l'immagine?
Fai tasto destro sulla X rossa e verifica il percorso, di sicuro è sbagliato quindi è la pagine del popup che devi modificare.

Roby

[Albaro]

Non è un popup , l'immagine che vorrei presente è una semplice gif di 50 pixel x 35 pixel che uso nelle altre pagine del sito, è un'immagine che sostituisce la scritta "Indietro", un'immagine sensibile al mouse e cliccando su di essa mi rimanda ad una pagina di mia scelta, è un metodo usato anche x i link ai filmati ecc. ecc.
sicuramente sto sbagliando qualcosa causa ignoranza o distrazione, comunque grazie x l'interessamento

[Roby_72]

Ma l'immagine, ammesso che il nome sia corretto, in che cartella si trova partendo dalla root del sito?

Roby