Sv:Expekted 'End'

Expekted 'End'

Postades av 2005-12-16 20:50:57 - Linus Enbom, i forum asp - allmänt, Tråden har 11 Kommentarer och lästs av 426 personer

Fick Expekted 'End' i denna kod.

<%
If Not Session("uLevel") = "3" Then Response.Redirect "default.asp?access=error&type=2"
call connOpen()
Dim strSelectSwimSort, strFrom
	If Request.Querystring("Update") = "Record" Then
		If Not Request.Querystring("selectSwimSort") = "Fr" OR Not Request.Querystring("selectSwimSort") = "Me" Then
			strFrom		= "tblswimmerrecord" & Request.Querystring("fromPoolDist")
			SQL = "UPDATE "&strFrom&" set "str"&Request.Querystring("selectSwimSort")&"50"='"&Request.Form("50")&"', "str"&Request.Querystring("selectSwimSort")&"100"='"&Request.Form("100")&"', "str"&Request.Querystring("selectSwimSort")&"200"='"&Request.Form("200")&"' WHERE id='"&Request.Querystring("SwimmerId")&"'"
			Conn.Execute(SQL)
			Response.Clear
		ElseIf Request.Querystring("selectSwimSort") = "Me" Then
			strFrom		= "tblswimmerrecord" & Request.Querystring("fromPoolDist")
			SQL = "UPDATE "&strFrom&" set "str"&Request.Querystring("selectSwimSort")&"100"='"&Request.Form("100")&"', "str"&Request.Querystring("selectSwimSort")&"200"='"&Request.Form("200")&"', "str"&Request.Querystring("selectSwimSort")&"400"='"&Request.Form("400")&"' WHERE id='"&Request.Querystring("SwimmerId")&"'"
			Conn.Execute(SQL)
			Response.Clear
		ElseIf Request.Querystring("selectSwimSort") = "Fr" Then
			strFrom		= "tblswimmerrecord" & Request.Querystring("fromPoolDist")
			SQL = "UPDATE "&strFrom&" set "str"&Request.Querystring("selectSwimSort")&"50"='"&Request.Form("50")&"', "str"&Request.Querystring("selectSwimSort")&"100"='"&Request.Form("100")&"', "str"&Request.Querystring("selectSwimSort")&"200"='"&Request.Form("200")&"', "str"&Request.Querystring("selectSwimSort")&"400"='"&Request.Form("400")&"', "str"&Request.Querystring("selectSwimSort")&"800"='"&Request.Form("800")&"', "str"&Request.Querystring("selectSwimSort")&"1500"='"&Request.Form("1500")&"' WHERE id='"&Request.Querystring("SwimmerId")&"'"
			Conn.Execute(SQL)
			Response.Clear
		Else
			Respons.Redirect "swimmers_record.asp?Change=1"
		End If
	End If
call connClose()
%>

Svara

Sv: Expekted 'End'

Postades av 2005-12-16 21:06:49 - Joakim Åhl

du har ingen end if till If Not Session("uLevel") = "3" Then Response.Redirect "default.asp?access=error&type=2"

Svara

Sv: Expekted 'End'

Postades av 2005-12-17 10:57:34 - Andreas Hillqvist

Dina SQL fråger ser underligare ut. De innehåller citationstecken på "fel" ställen eller oterminerade citations tecken.

<%
If Session("uLevel") = "3" Then 

    call connOpen()
    Dim strSelectSwimSort, strFrom
    If Request.Querystring("Update") = "Record" Then
        Select Case Request.Querystring("selectSwimSort")
        Case "Me" 
            strFrom        = "tblswimmerrecord" & Request.Querystring("fromPoolDist")
            SQL = "UPDATE " & strFrom & " set str" & Request.Querystring("selectSwimSort") & "100 = '" & Request.Form("100") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "200 = '" & Request.Form("200") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "400 = '" & Request.Form("400") & "' " & _
                  "WHERE id='" & Request.Querystring("SwimmerId") & "'"
            Conn.Execute(SQL)
            Response.Clear
        Case "Fr" 
            strFrom        = "tblswimmerrecord" & Request.Querystring("fromPoolDist")
            SQL = "UPDATE " & strFrom & " set str" & Request.Querystring("selectSwimSort") & "50 = '" & Request.Form("50") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "100 = '" & Request.Form("100") &"', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "200 = '" & Request.Form("200") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "400 = '" & Request.Form("400") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "800 = '" & Request.Form("800") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "1500 = '" & Request.Form("1500") & "' " & _ 
                  "WHERE id='" & Request.Querystring("SwimmerId") & "'"
            Conn.Execute(SQL)
            Response.Clear
        Case Else
            strFrom        = "tblswimmerrecord" & Request.Querystring("fromPoolDist")
            SQL = "UPDATE " & strFrom & " set str" & Request.Querystring("selectSwimSort") & "50 = '" & Request.Form("50") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "100 = '" & Request.Form("100") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "200" = '" & Request.Form("200") & "' " & _
                  "WHERE id = '" & Request.Querystring("SwimmerId") & "'"
            Conn.Execute(SQL)
            Response.Clear
        Else
            Respons.Redirect "swimmers_record.asp?Change=1"
        End If
    End If
    call connClose()
Else
    Response.Redirect "default.asp?access=error&type=2"
End If
%>

Du bör kolla up SQL.inject.

Svara

Sv:Expekted 'End'

Postades av 2005-12-17 17:32:40 - Linus Enbom

fick detta fel med din kod:
Sun ONE ASP VBScript compilation (0x800A03EA)
Syntax error, unexpected "new line"
line 28, column 92

Kan inte hitta den del av koden i din kod där felet ligger.

Den säger att det är denna rad där pilen pekar:

<%
        Case "Fr" 
            strFrom        = "tblswimmerrecord" & Request.Querystring("fromPoolDist")
            SQL = "UPDATE " & strFrom & " set str" & Request.Querystring("selectSwimSort") & "50 = '" & Request.Form("50") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "100 = '" & Request.Form("100") &"', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "200 = '" & Request.Form("200") & "', " & _
--->                                        "str" & Request.Querystring("selectSwimSort") & "400 = '" & Request.Form("400") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "800 = '" & Request.Form("800") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "1500 = '" & Request.Form("1500") & "' " & _ 
                  "WHERE id='" & Request.Querystring("SwimmerId") & "'"
            Conn.Execute(SQL)
            Response.Clear
%>

Svara

Sv: Expekted 'End'

Postades av 2005-12-18 11:06:26 - Andreas Hillqvist

Det finns inget syntax fel i den kod du bifogat.

Däremot i else-satsen. Ta bort stationstecknet efter 200:

<%
        Case Else
            strFrom        = "tblswimmerrecord" & Request.Querystring("fromPoolDist")
            SQL = "UPDATE " & strFrom & " set str" & Request.Querystring("selectSwimSort") & "50 = '" & Request.Form("50") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "100 = '" & Request.Form("100") & "', " & _
                                             "str" & Request.Querystring("selectSwimSort") & "200 = '" & Request.Form("200") & "' " & _
                  "WHERE id = '" & Request.Querystring("SwimmerId") & "'"
            Conn.Execute(SQL)
            Response.Clear
        Else
%>

Svara

Sv:Expekted 'End'

Postades av 2005-12-18 12:50:14 - Linus Enbom

nu får jag detta fel igen:
Expected 'End'
/swimmers_record.asp, line 34, column 1

Den radan är:
Response.Clear

Svara

Sv: Expekted 'End'

Postades av 2005-12-18 14:30:01 - Johan Djupmarker

Ser ut som att "End Select" saknas, testa att lägga till det mellan "Response.Clear" och "Else".

/Johan

Svara

Sv:Expekted 'End'

Postades av 2005-12-18 21:56:11 - Andreas Hillqvist

Tack, johan. Missade det. ;o)

Svara

Sv: Expekted 'End'

Postades av 2005-12-18 23:21:27 - Linus Enbom

Mekat lite i koden:<code>Error Type:
Sun ONE ASP VBScript compilation (0x800A0401)
Syntax error, unexpected "Else ", expecting end of statement
/swimmers_record.asp, line 164, column 1</code>

Här är hela koden:

<!-- #include file="inc/dbconn.asp" -->
<!-- #include file="inc/settings.asp" -->
<!-- #include file="inc/sub.asp" -->
<!-- #include file="inc/functions.asp" -->
<%
If Not Session("uLevel") = "3" Then Response.Redirect "default.asp?access=error&type=2"
call connOpen()
Dim strSelectSwimSort, strFrom
	If Request.Querystring("Update") = "Record" Then
		If Session("uLevel") = "3" Then 

		    call connOpen()
		    Dim strSelectSwimSort, strFrom
		    If Request.Querystring("Update") = "Record" Then
		        Select Case Request.Querystring("selectSwimSort")
		        Case "Me" 
		            strFrom        = "tblswimmerrecord" & Request.Querystring("fromPoolDist")
		            SQL = "UPDATE " & strFrom & " set str" & Request.Querystring("selectSwimSort") & "100 = '" & Request.Form("100") & "', " & _
		                                             "str" & Request.Querystring("selectSwimSort") & "200 = '" & Request.Form("200") & "', " & _
		                                             "str" & Request.Querystring("selectSwimSort") & "400 = '" & Request.Form("400") & "' " & _
		                  "WHERE id='" & Request.Querystring("SwimmerId") & "'"
		            Conn.Execute(SQL)
		            Response.Clear
		        Case "Fr" 
		            strFrom        = "tblswimmerrecord" & Request.Querystring("fromPoolDist")
    		        SQL = "UPDATE " & strFrom & " set str" & Request.Querystring("selectSwimSort") & "50 = '" & Request.Form("50") & "', " & _
        		                                     "str" & Request.Querystring("selectSwimSort") & "100 = '" & Request.Form("100") &"', " & _
        		                                     "str" & Request.Querystring("selectSwimSort") & "200 = '" & Request.Form("200") & "', " & _
        		                                     "str" & Request.Querystring("selectSwimSort") & "400 = '" & Request.Form("400") & "', " & _
        		                                     "str" & Request.Querystring("selectSwimSort") & "800 = '" & Request.Form("800") & "', " & _
        		                                     "str" & Request.Querystring("selectSwimSort") & "1500 = '" & Request.Form("1500") & "' " & _ 
        		          "WHERE id='" & Request.Querystring("SwimmerId") & "'"
        		    Conn.Execute(SQL)
        		    Response.Clear
        		Case Else
        		    strFrom        = "tblswimmerrecord" & Request.Querystring("fromPoolDist")
        		    SQL = "UPDATE " & strFrom & " set str" & Request.Querystring("selectSwimSort") & "50 = '" & Request.Form("50") & "', " & _
        		                                     "str" & Request.Querystring("selectSwimSort") & "100 = '" & Request.Form("100") & "', " & _
        		                                     "str" & Request.Querystring("selectSwimSort") & "200 = '" & Request.Form("200") & "' " & _
        		          "WHERE id = '" & Request.Querystring("SwimmerId") & "'"
        		    Conn.Execute(SQL)
        		    Response.Clear
        		End Select
        	Else
        	    Respons.Redirect "swimmers_record.asp?Change=1"
        	End If
 		End If
 		call connClose()
	End If
call connClose()
%>
<%
call Settings()
call AddNoCache()
call AddMetaTags()
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
	<meta http-equiv="Content-Language" content="sv">
	<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
	<title>Redigera Rekord</title>
	<script language="JavaScript" type="text/javascript" src="<%=JavaScript%>"></script>
	<style>
	  html, body, button, div, input, select, td, fieldset { font-family: MS Shell Dlg; font-size: 10px; }
	  form { margin: 0; }
	</style>
	<SCRIPT LANGUAGE="javascript">
		varning="Tyvärr, du får inte använda denna meny på denna sida."

		function nomenu() 
		{ 
		event.cancelBubble = true 
		event.returnValue = false; 

		return false; 
		} 

		function clickdown(e)
		{
		 if (document.all)
		 {
		   if (event.button==2)
		   {
		   }
		 }
		 if (document.layers)
		 {
		  if (e.which == 3)
		  {
		   return false;
		  }
		 }
		}
		
		function Init(){
			window.close();
		}

		document.oncontextmenu=nomenu; 
		document.onmousedown=clickdown;
	</SCRIPT>
</head>

<body  style="background: threedface; color: windowtext; margin: 5px; BORDER-STYLE: none" scroll=no<%If Request.Querystring("Update") <> "" OR Request.Querystring("Cancel") <> "" Then%> onload="Init();"<%End If%>>
<% If Request.Querystring("Change") = "1" Then %>
<form method="get" name="ChangeForm">
<FIELDSET style="width: 100%; text-align: center; padding: 3px;">
<LEGEND>Ändra Rekord</LEGEND>
<table border=0 cellspacing=6 cellpadding=0 width=100%>
 <tr>
  <td>
  	<b>Bassänglängd:</b><br>
    25: <input type="radio" name="fromPoolDist" value="25"><br>
  	50: <input type="radio" name="fromPoolDist" value="50"><br>
  	<br>
  	<b>Simsätt:</b><br>
  	Fjäril: <input type="radio" name="selectSwimSort" value="Fj"><br>
  	Ryggsim: <input type="radio" name="selectSwimSort" value="Ry"><br>
  	Bröstsim: <input type="radio" name="selectSwimSort" value="Br"><br>
  	Frisim: <input type="radio" name="selectSwimSort" value="Fr"><br>
  	Medley: <input type="radio" name="selectSwimSort" value="Me"><br>
  	<input type="hidden" name="SwimmerId" value="<%=Request.Querystring("SwimmerId")%>">
  	<input type="hidden" name="Change" value="2"><br><br>
  	<input type="submit" value="Skicka" style="width:60px;">
  </td>
 </tr>
</table>
</FIELDSET>
</form>
<% ElseIf Request.Querystring("Change") = "2" Then %>
<form action="?Update=Record&SwimmerId=<%=Request.Querystring("SwimmerId")%>&fromPoolDist=<%=Request.Querystring("fromPoolDist")%>&selectSwimSort=<%=Request.Querystring("selectSwimSort")%>" method="post" name="ChangeForm">
<%
strFrom				= "tblswimmerrecord" & Request.Querystring("fromPoolDist")
strSelectSwimSort	= Request.Querystring("selectSwimSort")

call connOpen()
SQL = "SELECT * FROM "& strFrom &" WHERE Id ="& Request.Querystring("SwimmerId")
Set RecSet = Conn.Execute(SQL)
Do until RecSet.EOF
%>
<FIELDSET style="width: 100%; text-align: center; padding: 3px;">
<LEGEND>Ändra Rekord</LEGEND>
<table border=0 cellspacing=6 cellpadding=0 width=100%>
 <tr>
  <td>
  	<% If Not selectSwimSort = "Me" Then %>50: <input type="text" name="50" value="<%=RecSet("str"&selectSwimSort&"50")%>"><br><% End If %>
  	100: <input type="text" name="100" value="<%=RecSet("str"&selectSwimSort&"100")%>"><br>
  	200: <input type="text" name="200" value="<%=RecSet("str"&selectSwimSort&"200")%>"><br>
  	<% If selectSwimSort = "Fr" OR selectSwimSort = "Me" Then %>400: <input type="text" name="400" value="<%=RecSet("str"&selectSwimSort&"400")%>"><br><% End If %>
  	<% If selectSwimSort = "Fr" Then %>800: <input type="text" name="800" value="<%=RecSet("str"&selectSwimSort&"800")%>"><br><% End If %>
  	<% If selectSwimSort = "Fr" Then %>1500: <input type="text" name="1500" value="<%=RecSet("str"&selectSwimSort&"1500")%>"><br><% End If %>
    <input type="text" name="record" style="width:150px;" value="">
  </td>
 </tr>
 <tr>
  <td colspan="2" style="text-align: right;"><input type="submit" value="Skicka" style="width:60px;"> <input type="button" value="Avbryt" name="cancel" onClick="location.href=='?Cancel=True';"></td>
 </tr>
</table>
</FIELDSET>
<%
RecSet.MoveNext
Loop
Recset.Close
call connClose()
%>
</form>
<% End If %>

</body>
</html>
<%
Else
    Response.Redirect "default.asp?access=error&type=2"
End If
%>

Svara

Sv:Expekted 'End'

Postades av 2005-12-20 23:33:24 - Linus Enbom

ingen som vet?

Svara

Sv: Expekted 'End'

Postades av 2005-12-21 00:33:00 - Andreas Hillqvist

Det är ingen utmaning i syntax fel. Syntaxfel är något som var programmerar bör ta itur med.
Jag tror ditt nuvarande fel är den första:

If Not Session("uLevel") = "3" Then Response.Redirect "default.asp?access=error&type=2"

och den sista:

<%
Else
    Response.Redirect "default.asp?access=error&type=2"
End If
%>

Du borde lösa det med en if-sats i början genom att ta bort slutet eller ta bor redirecten efeter end.

Svara

Sv:Expekted 'End'

Postades av 2005-12-21 16:06:26 - Linus Enbom

Tack! Det hjälpte en massa.
Såg även att jag missat och glömt skriva str på vissa saker som skulle ha det.
Glömde döpa om :p

<b>Tack i alla fall & God Jul på er alla!</b>

Svara

Expekted 'End'

Sv: Expekted 'End'

Sv: Expekted 'End'

Sv:Expekted 'End'

Sv: Expekted 'End'

Sv:Expekted 'End'

Sv: Expekted 'End'

Sv:Expekted 'End'

Sv: Expekted 'End'

Sv:Expekted 'End'

Sv: Expekted 'End'

Sv:Expekted 'End'

Nyligen

Sidor

Statistik

Kontakta oss