Ragazzi non esiste uno script tipo mod rewrite con c'è per questo sito in php?

Ho risolto in pratica ho dovuto mettere:

<%
Response.Buffer = True
Dim pagina, NomeFile
Pagina = Session("IndirizzoCompleto")
NomeFile = Session("Classe")
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
xml.Open "GET", pagina, False
xml.Send
strHtml = xml.responseText
Set FSO = CreateObject("Scripting.FileSystemObject")
sPath = Server.MapPath(NomeFile)
Set f = FSO.CreateTextFile(sPath, True)
f.WriteLine(strHtml)
f.Close
Set f = Nothing
Set FSO = Nothing
set xml = Nothing
%>

Ora pero' se io richiamo questo script (che ho inserito dentro la pagina trasforma.asp) mediante un link dalla pagina asp che voglio trasformare fila tutto liscio, ma vorrei che si trasformasse in automatico, alla sola apertura della pagina stessa, quindi non appena apro la pagina http://www.miosito.it/home.asp mi si deve creare http://www.miosito.it/home.htm in automatico, ho provato a mettere in fondo ad ogni pagina

<!--#include file="trasforma.asp" -->

Ma dà errore, esattamente questo:

msxml4.dll error 'c00c023f'

This method cannot be called until the send method has been called.

/trasforma.asp, line 11

Alla linea 11 ho:

xml.Send

@Boss83 said:

Ragazzi non esiste uno script tipo mod rewrite con c'è per questo sito in php?

Esistono due soluzioni, o usi dei componenti tipo ISAPI_Rewrite, se l'host che hai te lo consente, o fai tutto a mano .... io con tutto che posso usare ISAPI_Rewrite ho optato per farlo a mano, e lo script in questione mi servo proprio a trasformare le asp in html .....

ciao parto per il raduno del GT FORUM ,
ci risentiamo Lunedì !!

Quindi prendo sto script e poi che devo fa?

Function GetUrl(Url)
Dim Http
Set Http = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
Http.open "GET",Url,False
Http.Send()
GetUrl = Http.ResponseText
Set Http=Nothing
End Function

Function GetUrl(Url) 
 Dim Http 
 Set Http = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
 Http.open "GET",**Server.UrlDecode(Url)**,False 
 Http.Send()
 GetUrl = Http.ResponseText 
 Set Http=Nothing 
End Function

Mi da il seguente errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'Server.URLDecode'

@O-WK said:

Ho risolto in pratica ho dovuto mettere:

<%
Response.Buffer = True
Dim pagina, NomeFile
Pagina = Session("IndirizzoCompleto")
NomeFile = Session("Classe")
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
xml.Open "GET", pagina, False
xml.Send
strHtml = xml.responseText
Set FSO = CreateObject("Scripting.FileSystemObject")
sPath = Server.MapPath(NomeFile)
Set f = FSO.CreateTextFile(sPath, True)
f.WriteLine(strHtml)
f.Close
Set f = Nothing
Set FSO = Nothing
set xml = Nothing
%>

Ora pero' se io richiamo questo script (che ho inserito dentro la pagina trasforma.asp) mediante un link dalla pagina asp che voglio trasformare fila tutto liscio, ma vorrei che si trasformasse in automatico, alla sola apertura della pagina stessa, quindi non appena apro la pagina http://www.miosito.it/home.asp mi si deve creare http://www.miosito.it/home.htm in automatico, ho provato a mettere in fondo ad ogni pagina

<!--#include file="trasforma.asp" -->

Ma dà errore, esattamente questo:

msxml4.dll error 'c00c023f'

This method cannot be called until the send method has been called.

/trasforma.asp, line 11

Alla linea 11 ho:

xml.Send

Succede in quanto trasforma.asp fa un redirect subito dopo xml.send, questo a quanto pare fa fallire il metodo waitForResponse dell'oggetto xml.

C'è una patch mi sembra ma è a pagamento http://66.102.9.104/search?q=cache:xdkddrRhXl4J:www.kbalertz.com/872788/redirected.request.causes.waitForResponse.method.ServerXMLHTTP.class.aspx+"This+method+cannot+be+called+until+the+send+method+has+been+called"+xml+asp&hl=it&ct=clnk&cd=2&gl=it&client=firefox-a

@frafa said:

Mi da il seguente errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'Server.URLDecode'

@paocavo said:

>
    Function URLDecode(str) 
        str = Replace(str, "+", " ") 
        For i = 1 To Len(str) 
            sT = Mid(str, i, 1) 
            If sT = "%" Then 
                If i+2 < Len(str) Then 
                    sR = sR & _ 
                        Chr(CLng("&H" & Mid(str, i+1, 2))) 
                    i = i+2 
                End If 
            Else 
                sR = sR & sT 
            End If 
        Next 
        URLDecode = sR 
    End Function 

>```

Prima di chiamare la funzione, ti conviene dichiararla