reindirizzamento non funzionante

**mr.fifteen** · 25-05-2009, 10:34

Buongiorno, sto facendo un sito per un agenzia di viaggi. Ho bisogno che all'interno delle pagine ci siano dei link a delle compagnie di traghetti. Questi link devono essere "letti" dal sito della compagnia in modo da dare al mio cliente un corrispettivo per ogni clic.
Due di queste compagnie mi hanno dato un sistema pre-impostato (JOLIE) di reindirizzamento.
Il mio sito è progettato in ASP, il sistema è "spacciato" come ASP, ma, dopo averlo un po' adattato continua a non funzionare.
Posto il codice e l'errore, qualcuno saprebbe aiutarmi?

codice:

<% Page AspCompat="true"  %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
	<title>Pagina test</title>

<script runat="server" language="vbscript">
Function openpage(page)
	Dim objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
	objXMLHTTP.Open("GET", page, false)
	objXMLHTTP.Send
	Dim res = CStr(objXMLHTTP.ResponseText)
	Dim objxml = Nothing
	openpage = res
end Function

Function geturl(resp)
	Dim coppia = Split(resp, "|", -1, 1)
	If UBound(coppia) >= 1 Then
		Rem il terzo parametro deve essere 2 altrimenti viene effettuato lo split anche per gli = usati nei parametri della url
		Dim url = Split(coppia(1), "=", 2, 1)
		If UBound(url) >= 1 Then
			geturl = url(1)
		End If
	Else
		geturl = ""
	End If
end Function
</script>
</head>
<body>
URL ricevuta:


<%
Dim accesso = geturl(openpage("xxx"))
%>

<%response.write(accesso)%>
	
</body>

codice:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/anek/testrichiesta.asp, line 36

Dim accesso = geturl(openpage("http://anek.eferry.it/anek-b2c/richiestaTEST?PR=LNKJ&IdAge=LJTEST&Pwd=LINKTEST&LANG=IT"))
------------^

**Roby_72** · 25-05-2009, 11:10

Dim accesso
accesso = geturl(openpage("xxx"))

Roby

**mr.fifteen** · 25-05-2009, 11:40

Grazie, ma ora mi da questo errore...
Microsoft VBScript compilation error '800a0414'

Cannot use parentheses when calling a Sub

/anek/testrichiesta.asp, line 12

objXMLHTTP.Open("GET", page, false);
-----------------------------------^

scusate, ma io non ci capisco nulla...

**Roby_72** · 25-05-2009, 11:54

Ma il ; prima non c'era o sbaglio?

Roby

**mr.fifteen** · 25-05-2009, 12:05

si scusa... stavo facendo delle prove e non l'ho tolto... non funziona ne con ne senza...

**optime** · 25-05-2009, 12:19

fiftyfifty, riposta il codice attuale

**mr.fifteen** · 25-05-2009, 12:25

<% Page AspCompat="true" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Pagina test</title>

<script runat="server" language="vbscript">
Function openpage(page)
Dim objXMLHTTP
objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open("GET", page, false)
objXMLHTTP.Send
Dim res = CStr(objXMLHTTP.ResponseText)
Dim objxml = Nothing
openpage = res
end Function

Function geturl(resp)
Dim coppia = Split(resp, "|", -1, 1)
If UBound(coppia) >= 1 Then
Rem il terzo parametro deve essere 2 altrimenti viene effettuato lo split anche per gli = usati nei parametri della url
Dim url = Split(coppia(1), "=", 2, 1)
If UBound(url) >= 1 Then
geturl = url(1)
End If
Else
geturl = ""
End If
end Function
</script>
</head>
<body>
URL ricevuta:

<%
Dim accesso
accesso = geturl(openpage("http://anek.eferry.it/anek-b2c/richiestaTEST?PR=LNKJ&IdAge=LJTEST&Pwd=LINKTEST&LA NG=IT"))
%>

<%response.write(accesso)%>

</body>

**optime** · 25-05-2009, 12:27

e a quale riga ti dà errore?

**mr.fifteen** · 25-05-2009, 12:30

L'ho messa in grassetto cmq
objXMLHTTP.Open("GET", page, false)

<% Page AspCompat="true" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Pagina test</title>

<script runat="server" language="vbscript">
Function openpage(page)
Dim objXMLHTTP
objXMLHTTP= Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open("GET", page, false)
objXMLHTTP.Send
Dim res = CStr(objXMLHTTP.ResponseText)
Dim objxml = Nothing
openpage = res
end Function

Function geturl(resp)
Dim coppia = Split(resp, "|", -1, 1)
If UBound(coppia) >= 1 Then
Rem il terzo parametro deve essere 2 altrimenti viene effettuato lo split anche per gli = usati nei parametri della url
Dim url = Split(coppia(1), "=", 2, 1)
If UBound(url) >= 1 Then
geturl = url(1)
End If
Else
geturl = ""
End If
end Function
</script>
</head>
<body>
URL ricevuta:

<%
Dim accesso
accesso = geturl(openpage("xxx"))
%>

<%response.write(accesso)%>

</body>

**Roby_72** · 25-05-2009, 12:35

Ma stai lavorando in vbscript lato client?

Roby

Discussione: reindirizzamento non funzionante

Strumenti discussione

Ricerca discussione

Visualizza

reindirizzamento non funzionante

Permessi di invio