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"))
------------^