Expekted 'End'
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'
du har ingen end if till If Not Session("uLevel") = "3" Then Response.Redirect "default.asp?access=error&type=2"
Svara
Sv: Expekted 'End'
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'
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'
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'
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'
Ser ut som att "End Select" saknas, testa att lägga till det mellan "Response.Clear" och "Else".
/Johan
Svara
Sv: Expekted 'End'
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'
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:
1 | 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'
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