Jag får det här felet:
Kompileringsfel i Microsoft VBScript fel '800a03ea'
Syntaxfel
/peachy2/nygrupprel.asp, rad 33
else
^
på en sida med den här koden:
<!--#INCLUDE FILE="config.inc"-->
<!--#INCLUDE FILE="replace.inc"-->
<!--#INCLUDE FILE="topandmeny.inc" -->
grupp=Request.Querystring("grupp")
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open GruppConString
SQL = "SELECT * From grupprelation WHERE anvandarnamn = '" & Session("anvandarnamn") & "' and grupp='" & Request.Querystring("grupp") & "'"
rs.Open SQL, MinCon, 1, 2
If not rs.EOF Then
%>
<table name="valkommen" border="0" align="left" cellspacing="0" width="400">
<tr>
<td>
<b>ERROR 501</b><br>
Du är redan medlem i denna grupp, du kan bara bli medlem i en grupp en gång! <%=rs("gruppnamn")%>
</td>
</tr>
</table>
<br><br><br><br><br><br><br><br><br>
</body>
</html>
<%
else
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open GruppConString
SQL = "INSERT INTO grupprelation ([anvandarnamn], [datum], [grupp]) VALUES('" & Session("anvandarnamn") & "',#" & now & "#,'" & grupp & "')"
MinCon.Execute(SQL)
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open GruppConString
SQL = "SELECT * From grupp WHERE gruppnamn = '" & Request.Querystring("grupp") & "'"
rs.Open SQL, MinCon, 1, 2
medlemmar=rs("medlemmar")+1
rs.Close
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open GruppConString
SQL = "UPDATE grupp SET medlemmar= '" & medlemmar & "' WHERE gruppnamn = '" & Request.Querystring("grupp") & "'"
rs.Open SQL, MinCon, 1, 2
%>
<table border="0" align="left" name="info" width="400" cellspacing="1">
<tr>
<td>
<b>Ny medlem!</b><br>
Du har nu medlem i gruppen <%=request.querystring("grupp")%>!
<br><br><br><br><br><br><br><br><br><br><br><br><br><br>
</td>
</tr>
</table>
<% end if %>
<!--#include file="right.inc" -->
Trodde man brukade ha else efter if men vad vet jag ;)
Hoppas nån ser vad som är fel fort! :)
------------------
//M@rtin || Peachy.nu\\
Sue Me!