Valering med if then ... ????

Hej med jer .

Jeg har et lavet en asp validering der tjekker data

sendt fra formularen og lagrer det i db hvis alt er

ok.

Dog vil jeg lave en hjemmeside url tjekker der tjekker

1. om der står ingen i hjemmeside feltet og hvis der

gør skriver ingen hjemmeside.

2. hvis der ikke står ingen i hjemmeside feltet OG

hvis der ikke står http i starten skriver

husk http .

Jeg får nu en fejl der hedder Then var ventet.

Hvorfor gør jeg det?

Koden fælger og håber I kan hjælpe mig.

URL http://217.157.130.36/gb/gb/tilfoej_indlaeg.asp

http://217.157.130.36/gb/gb/errnavn.asp

Nedenunder er koden til errnavn.asp

<%

If Request(\"Navn\")=\"\" Then
Response.Write \"Du skal huske navne feltet!!!\"
Else
response.write(request.form(\"Navn\"))
end if

If Request(\"Email\")=\"\" Then
Response.Write \"Du skal huske email feltet!!!\"
Else
response.write(request.form(\"Email\"))
end if

If Request(\"Hjemmeside\")=\"Ingen\" Then
Response.Write \"Ingen hjemmeside\"
If Request.Form(\"Hjemmeside\")<>\"Ingen\" AND Request.Form(\"Hjemmeside\"))<> Request.Form(\"http\"),\"Hjemmeside\") Then
Response.Write \"Du skal huske du skal huske http foran!!!\"
Else
response.write(request.form(\"Email\"))
end if

Else
response.write(request.form(\"Email\"))
end if
response.write(request.form(\"Hjemmeside\"))

If Request(\"Besked\")=\"\" Then
Response.Write \"Du skal huske besked feltet!!!\"
Else
response.write(request.form(\"Besked\"))
end if

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"gaestebog.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From gaestebogen\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"Navn\") = Request.form(\"Navn\")
     
      rs(\"Email\") = Request.form(\"Email\")
     
    rs(\"Hjemmeside\") = Request.form(\"Hjemmeside\")
     
      rs(\"icq\") = Request.form(\"icq\")
      rs(\"Besked\") = Request.form(\"Besked\")
     
      rs(\"Dato\") = Now()
      rs(\"IP\") = request.servervariables(\"remote_Addr\")
   
rs.Update


    rs.Close

    Set rs = Nothing

Conn.Close

set Conn = Nothing

%>

<html>
<head>
<style>

body {
        font-weight: normal;
        color: 00ffcc;
       
}


A:link {
        font-weight: normal;
        color: ff00ff;
        text-decoration: underline;
}
A:visited {
        font-weight: normal;
        color: <% =Linkfarve %>;
        text-decoration: underline;
}
A:active {
    color: <% =Linkfarve %>;
    text-decoration: underline;
}

A:hover {
        font-weight: normal;
        color: <% =Linkfarve %>;
    text-decoration: overline;
}
-->
</style>
</head>

<body bgcolor=\"0000ff\">
<br>
<center>

<br><br>
<br><br>

<font color=\"00ffcc\">
<br>
Prøv nu igen og tag dig sammen !!!!!</font><br><br>
<A HREF=\"java script:history.go(-1)\"><font color=\"00ff00\"\">Tilbage!!!</a>



</center>


</body>
</html>