Hjælp til fejl ( Expected 'End' )
Hejsa jeg har lavet dette script (Det første jeg helt selv har skrevet), og den melder fejlen Expected 'End' men jeg har kigget efter flere gange om jeg manglede en END IF men det går lige op me IF statements....!!!<html>
<head>
<title>Firma Register</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Ord = Request.Form("Searchfor")
Firmanavn = Request.Form("Firmanavn")
By = Request.Form("By")
Etabelering = Request.Form("Etabelering")
Selskabsform = Request.Form("Selskabsform")
Sorter = Request.Form("Sorter")
%>
<form name="form1" method="post" action="Index.asp">
<div align="center">
<table width="450" border="0" cellspacing="2" cellpadding="0">
<tr>
<td>Søg på ord : </td>
<td><input name="Searchfor" type="text" value="<%= Ord%>" size="50" maxlength="150">
</td>
</tr>
<tr>
<td>Firmanavn : </td>
<td><input name="Firmanavn" type="text" id="Firmanavn" value="<%= Firmanavn%>" size="50" maxlength="150"></td>
</tr>
<tr>
<td>By : </td>
<td><select name="By" id="By">
<option value="*" selected>Alle</option>
<option value="Holsted">Holsted</option>
<option value="Hovborg">Hovborg</option>
<option value="Føvling">Føvling</option>
<option value="Glejbjerg">Glejbjerg</option>
</select></td>
</tr>
<tr>
<td>Etabelerings år : </td>
<td><input name="etabelering" type="text" id="etabelering" value="<%= Etabelering%>" size="8" maxlength="4"></td>
</tr>
<tr>
<td>Selskabsform : </td>
<td><select name="Selskabsform" id="Selskabsform">
<option value="*" selected>Alle</option>
<option value="Enkeltmandsvirksomhed">Enkeltmands virksomhed</option>
<option value="Filial">Filial</option>
<option value="Aktieselskab">Aktieselskab</option>
<option value="Anpartsselskab">Anpartsselskab</option>
<option value="Interessentskab">Interessentskab</option>
<option value="Forening">Forening</option>
<option value="Andelsselskab/-forening">Andelsselskab/-forening</option>
<option value="Andelsselskab/-forening med begrænset ansvar">Andelsselskab/-forening
med begrænset ansvar</option>
</select></td>
</tr>
<tr>
<td>Sorter efter :</td>
<td><label>
<input name="Sorter" type="radio" value="Firmanavn" checked>
Firmanavn</label> <br> <label>
<input type="radio" name="Sorter" value="By">
By</label> <br> <label>
<input type="radio" name="Sorter" value="Etabeleringsår">
Etabelerings år</label> <br> <label>
<input type="radio" name="Sorter" value="Selskabsform">
Selskabsform</label> </td>
</tr>
<tr>
<td height="24" align="left" valign="top"> </td>
<td><p>
<label> </label>
<input type="submit" name="Submit" value="Søg">
<br>
</p>
</td>
</tr>
</table>
<p> </p>
</div>
</form>
<div align="center">
<%
If Ord = "" AND Firmanavn = "" AND Etabelering = "" AND By = "*" Then
%>Der blev ikke fundet nogle firmaer.<%
Else
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/Databaser/conexio/Firmareg.mdb"
set rs=Server.CreateObject("ADODB.recordset")
mySQL = "SELECT * FROM Firmareg WHERE By = " & By
If Ord = "" Then
Else mySQL = "AND * LIKE =" & Ord
End if
If Firmanavn = "" Then Firmanavn = "*"
Else mySQL = "AND WHERE Firmanavn =" & Firmanavn
End if
If Etabelering = "" Then
Else mySQL = "AND WHERE Etabelering =" & Etabelering
End if
mySQL = "AND Selskabsform =" & Selskabsform
mySQL = "ORDER BY =" & Sorter & conn %>
<%do until RS.EOF%> <br><br><%= RS.Fields("Firmanavn")%><br><%= RS.Fields("Adresse")%><br>
<%= RS.Fields("Postnr")%><%= RS.Fields("By")%><br>
<%= RS.Fields("Telefon")%><br><a href="<%= RS.Fields("Hjemmeside")%>" target="_blank"><%= RS.Fields("Hjemmeside")%></a><br><br>Firma Fakta :<br><br>
Etabelerings år : <%= RS.Fields("Etabelering")%><br>
Selskabsform : <%= RS.Fields("Selskabsform")%><br>
Antal ansatte : <%= RS.Fields("Ansatte")%><br>
<br>
<%= RS.Fields("Tekst")%><br><br><hr>
<%rs.MoveNext%>
<%loop
rs.close
conn.close
End if%>
</div>
</body>
</html>
P.S. Hvis der er flere fejl vil jeg meget gerne have dem af vide....!!!
