non lo so non ci capisco nulla... il codice non è mio... io di solito lavoro in vbscript, qui mi da Page AspCompat="true", mai sentito...
Cmq ho corretto tutti i dim e le parentesi, ora il codice è così:
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
objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open"GET", page, false
objXMLHTTP.Send
Dim res
res = CStr(objXMLHTTP.ResponseText)
Dim objxml
objxml = Nothing
openpage = res
end Function
Function geturl(resp)
Dim coppia
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
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&LANG=IT"))
%>
<%response.write(accesso)%>
</body>
ma l'errore che mi da è questo
codice:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'Page'
/xxxx/testrichiesta.asp, line 1
Permessi di invio
Rispondi quotando