Omskrivning af elseif sætning ??

Hej

Jeg har lavet en fejl tjekker for at sikre at data

der bliver sendt til min db er korrekte.

I den bruger jeg en elseif sætningen som jeg meget

gerne vil have skrevet om så den ligner de andre

fejl sætninger men hvordan gør jeg det ?

URL

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

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

Nedenfor ses koden for errnavn.asp mned en markering

af den sætning der skal skrives om ....


<%
response.buffer=true
%>
<center><br><br>Nelly siger:<br><br>
<%
allok = true
if Request.Form(\"Navn\") = \"\" then
allok = false
fejl= fejl & \"Du skal huske navne feltet!!<br>\"
end if

allok = true
if Request.Form(\"Email\") = \"\" then
allok = false
fejl= fejl & \"Du skal huske email feltet!!<br>\"
end if

_________________
__________________

NEDENFOR SES DEN SÆTNING DER SKAL SKRIVES OM

_____________________
_____________

If Request.Form(\"Hjemmeside\")=\"Ingen\" Then
Response.Write \"Ingen hjemmeside<br>\"

elseif instr(Request.Form(\"Hjemmeside\"),\"http\") Then
response.write(request.form(\"Hjemmeside\")) & \"<br>\"
Else
Response.Write \"Du skal huske http foran!!!<br>\"
end if 


_________________
______________________

SLUT PÅ SÆTNINGEN
________________
_________

allok = true
if Request.Form (\"Besked\")=\"\" Then
allok = false
fejl = fejl & \"Du skal huske besked feltet!!\"
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\")

if allok then

   
rs.Update
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
response.redirect(\"frames.asp\")

else
response.write(\"\")
end if



    %>

<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>