il referer contiene l'url completo di querystring.
quindi prima dovresti spezzare il referer:
e poi quel parametro VALORE che pessi nella funzione? a cosa serve?
cavbh', cmq:
codice:
dim strFrom
strFrom = Request.ServerVariables("HTTP_REFERER")
array_FROM=SPLIT(strForm,"/")
array_pag=split(array_from(ubound(array_from)),"?")
strFrom=array_pag(0)
Function cecklink(valore)
words = Array("prodotti.asp","prodotti1.asp","prodotti2.asp","prodotti3.asp","prodotti4.asp","prodotti5.asp","prodotti6.asp","prodotti7.asp","prodotti8.asp")
For k = LBound(words) To UBound(words)
if (words(k)=strFrom) then
response.redirect words(k+1)
End Function