Hvorfor kan jeg ikke bruge if-then løkke ?

du mangler en end if

("forhandlertele")%><%else end if%></P>

Sorry koden er forkert her er den rigtige (men stadig med fejl)


<% Response.Buffer = True %>
<HTML>
<HEAD>
<title></title>
<BODY BGCOLOR="#FFFFFF"
</head><body>
<style type="text/css">
<!--
@media screen {
.top,.bund    {display: none}
.main    {display: block; width: 100%; position: absolute; top: 210px; left: 0}
}
@media print {
body    {width: 21cm; height: 29.7cm}
.top    {display: block; width: 100%; height: 150px; position: 75px: border: 2px solid black}
.bund    {display: block; width: 100%; height: 50px; position: absolute; bottom: 5px; left: 0}
}
-->

BODY {

    margin: 20px 0px 0px 0px;

}



a:link {

    color: black;

    text-decoration:none;

}



a:visited {

    color: black;

    text-decoration:none;

}

a:active {

    color: black;

    text-decoration:none;

}

a:hover {

    color: black;

    text-decoration:underline;

}



h1 {   

    font:  8pt Ariel,sans-serif;

    padding: 0px 0px 0px 0px;

    margin: 0px 0px 0px 0px;

    color: #000000;

    background-color: transparent;

}








BODY { scrollbar-darkshadow-color: #FFFFFF;
scrollbar-shadow-color: #FFFFFF; scrollbar-3dlight-color: #FFFFFF;
scrollbar-face-color: #000000; scrollbar-arrow-color: #FFFFFF;
scrollbar-track-color: #FFFFFF; scrollbar-highlight-color: #FFFFFF; }

</style>
<div class="top">

<h1 style="text-align: center">USG Service rapport</h1>
<h4 style="text-align: center">Følgende er udført på Deres reparation:</h4>
</div>



<%


' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("usgkundesearch.htm")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, nummer, forhandlernavn, forhandleradr, forhandlerpostnr, forhandlerby, forhandlertele, kundenavn, kundeadr, kundepostnr, kundeby, kundetele, kundeemail, type, kundeudstyr, dato, kundefejl, kunderep, kundepris, status, datoslut, policenr, password, retur FROM usgdatabase WHERE"
strSQL = strSQL & " (nummer LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlernavn LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandleradr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (policenr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlerby LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (forhandlertele LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundenavn LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeadr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundepostnr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeby LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundetele LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeemail LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (type LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundeudstyr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (dato LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (kundefejl LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (datoslut LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (policenr LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (password LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (retur LIKE '" & strKeyword & "')"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\websider\global\comgrosinfo.dk\comgrosinfo.dk\db\usgdatabase.mdb"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
%>

<HTML>
<!--This file created 15:25  15-08-02 by                          3.0-->
<HEAD>
  <TITLE>test2</TITLE>
  <META NAME=GENERATOR CONTENT="                3.0">
  <X-CLARIS-WINDOW TOP=0 BOTTOM=443 LEFT=0 RIGHT=796>
  <X-CLARIS-TAGVIEW MODE=minimal>
</HEAD>
<BODY BGCOLOR="#FFFFFF">


<P><TABLE BORDER=0>
<TR>
      <TD WIDTH="20%">
        <P></P>
      </TD>
      <TD>
        <P><b><font face="Arial, Helvetica, sans-serif" size="2">Status på Deres reparation / skade på skadenr: </b></P>
      </TD>
      <TD>
        <P><b><font face="Arial, Helvetica, sans-serif" size="2"><%Response.Write rs("password")%></b></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1">Kunde info:</P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("kundenavn")%></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("kundeadr")%></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("kundepostnr")%> <%Response.Write rs("kundeby")%></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("kundetele")%></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("kundeemail")%></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1">Reparations model:</P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("type")%></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1">Modtaget den:</P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("dato")%></P>
      </TD>
  </TR>
  <TR>
<TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1">Status:</P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("status")%></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1">Forventes f&aelig;rdig:</P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("dato")%></P>
      </TD>
  </TR>

</P>

<P>
  <TR>
      <TD>
        <P ALIGN=left></P>

      </TD>
      <TD>

<%if rs("retur") = "ja" then%>
<TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1">Forventes f&aelig;rdig:</P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("dato")%></P>
      </TD>
  </TR>

</P>

<P>
  <TR>
      <TD>
        <P ALIGN=left></P>

      </TD>
      <TD>


        <P><font face="Arial, Helvetica, sans-serif" size="1">Udstyret returneres til:</P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("forhandlernavn")%></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("forhandleradr")%></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("forhandlerpostnr")%> <%Response.Write rs("forhandlerby")%></P>
      </TD>
  </TR>
  <TR>
      <TD WIDTH="">
        <P></P>
      </TD>
      <TD>
        <P></P>
      </TD>
      <TD>
        <P><font face="Arial, Helvetica, sans-serif" size="1"><%Response.Write rs("forhandlertele")%><%else end%></P>
      </TD>
  </TR>
  <TR>

   
</TABLE>


<%
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p><font color=red> Dette faktura nummer er ikke registreret hos os, prøv evt. at indtaste dit skadenummer.</p></h1>"
   

End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing

%>

</head><body>

<div class="bund">

<h4 style="text-align: center">Der garanteres ikke for kundens data ved reparation af computere.</h4>

</div>

</body></html>

Jeg har prøvet at ændre slutningen til :
<%
Else end if
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p><font color=red> Dette faktura nummer er ikke registreret hos os, prøv evt. at indtaste dit skadenummer.</p></h1>"
   

End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing

%>

Men det virker heller ikke.

du skal ikke burge else end IF
Du skal bruge Else handling og så End IF

kan du sige mig hvordan ?

ja
eksempel...
IF bold = 1 Then
Der findes en bold
Else
Der findes mere en en bold eller slet ikke nogle
End IF

Jeg syntes ikke jeg kan få det til at virke (får en fejl 500

prøv også lige at skrive

  <% end if %>

Fastpoint,

Tak for dit svar, nu virker skidtet :)

Point til dig.....hurtige point!!

ja selvfølge skal du sørge for at koden bliver aktiveret:)

no problem... jeg vil lige sige at jeg ikke er ASP programmør:) jeg piller bare ved skidtet så jeg kan huske en masse fra de scripts jeg roder ved.

Tak for point