Option Explicit

Heysa..
Jeg har en kode som viser "Kilde koden".
Det vil sige du eks. kan skrive http://www.hjemmeskoen.dk også viser den kilde koden for forsiden.

Men nu er jeg stødt ind i lidt problemer. Det var menningen jeg ville lave det sådan at man kunne indtaste URLen man vil se koden på (Altså eks. http://www.eksperten.dk) også viste den det - Men jeg støder på fejl.

Min kode ser sådan ud:

<b>Vis kilde</b>
<hr>

<form method="post" action="Index.asp?Side=Resultat">

Skriv adressen på siden:<br>
<input type="text" name="Adresse" size="20" value="http://">
<br>
<br>
<input type="submit" value="Vis kilde.." class="button">

</form>

<hr>
<%
if request.querystring("Side") = "Resultat" then
%>

<%
Adresse = Request.form("Adresse")

Option Explicit
Dim whttp,strUrl

strUrl = "" & Adresse & ""

Set whttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1")
whttp.Open "GET",strUrl
whttp.Send

Response.Write "<pre>" & Server.HTMLEncode(whttp.ResponseText) & "</pre>"
Response.End
%>

<%
End if
%>

Umiddelbart kan jeg ikke se nogle fejl men den skriver altså:

Microsoft VBScript compilation error '800a0400'

Expected statement

/T1E2S3T/Kilde/index.asp, line 24

Option Explicit
^

Nogle der kan forklarer fejlen? :)