webForumDet fria alternativet
Logga in / Bli medlem

Asp fel? hur görman?

ASP

19 svar · 451 visningar · startad av wunderbaren

wunderbarenMedlem sedan dec. 2002105 inlägg
Frågan#1

Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/navigation.asp, line 211

--------------

<%
If Request.Querystring("url") <> "" Then

Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT TOP 1 * From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'disko'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%><!--#include file="information_menu.asp" --><table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"><tr><td width="68%" valign="top" height="1"><br>
<img border="0" src="logo/diskografi.gif"><br><br>
<b><%=RecSet("rubrik")%><br>
</b><%=RecSet("skivdatum")%><br>
<br>
<img border="0" src="<%=RecSet("bild")%>">
<a target="_blank" href="http://www.cdon.com/SE">
Beställ på CDON.com</a><br>
<br>
<%=RecSet("kod")%>
<%
RecSet.MoveNext
Loop

RecSet.Close
Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
End If
%>

raxen den säger att det e fel på är End If. Den längst ner...

m_soderlunds avatarm_soderlundMedlem sedan sep. 20026 425 inlägg
#2

Koden ska vara korrekt vad jag kan se?? Detta borde inte göra någon skillnad men byt ut första raden mot denna:

If Len(Request.Querystring("url"))>0 Then
'din kod..

LarsGMedlem sedan dec. 200012 464 inlägg
#3

Vad innehåller denna fil?

<!--#include file="information_menu.asp" -->

Nexus86s avatarNexus86Medlem sedan okt. 20023 030 inlägg
#4

Du har aldrig funderat på att göra koderna lite mer lättlästa va?? (Infogar samma kod för att göra den lite mer lättläst)

<% 
If Request.Querystring("url") <> "" Then 

Set MinCon = Server.CreateObject("ADODB.Connection") 
Set RecSet = Server.CreateObject("ADODB.RecordSet") 

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb") 
SQL = "SELECT TOP 1 * From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'disko'" 
RecSet.Open SQL, MinCon 

Do While Not RecSet.EOF 
%><!--#include file="information_menu.asp" --><table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"><tr><td width="68%" valign="top" height="1"><br> 
<img border="0" src="logo/diskografi.gif"><br><br> 
<b><%=RecSet("rubrik")%><br> 
</b><%=RecSet("skivdatum")%><br> 
<br> 
<img border="0" src="<%=RecSet("bild")%>"> 
<a target="_blank" href="http://www.cdon.com/SE"> 
Beställ på CDON.com</a><br> 
<br> 
<%=RecSet("kod")%> 
<% 
RecSet.MoveNext 
Loop 

RecSet.Close 
Set RecSet = Nothing 

Connect.Close 
Set Connect = Nothing 
End If 
%>
Nexus86s avatarNexus86Medlem sedan okt. 20023 030 inlägg
#5

troligen så innehåller filen "information_menu.asp" någon oavslutad Do..

wunderbarenMedlem sedan dec. 2002105 inlägg
#6

information.asp innehåller bara html

wunderbarenMedlem sedan dec. 2002105 inlägg
#7

POSTAR HELA MIN SIDA!

Ser nån ngt fel?

-----------------------------------

<%
If Request.Querystring("url") <> "" Then

Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT TOP 1 * From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'sida'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%><%
Dim myMeny, kika
kika = "" & RecSet("kommentar")
myMeny = CStr(kika)

Select Case myMeny
Case home
%><!--#include file="home_menu.asp" --><%
Case information
%><!--#include file="information_menu.asp" --><%
Case media
%><!--#include file="media_menu.asp" --><%
Case contact
%><!--#include file="contact_menu.asp" --><%
End Select
%><table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"><tr><td width="68%" valign="top" height="1"><br><%
kika = "" & RecSet("url")
myMeny = CStr(kika)

Select Case myMeny
Case 1488
%><!--#include virtual="temp/~temp1488.asp" --><%
Case 1487
%><!--#include virtual="temp/~temp1487.asp" --><%
Case 1486
%><!--#include virtual="temp/~temp1486.asp" --><%
Case 1485
%><!--#include virtual="temp/~temp1485.asp" --><%
Case 1484
%><!--#include virtual="temp/~temp1484.asp" --><%
Case 1483
%><!--#include virtual="temp/~temp1483.asp" --><%
Case 1482
%><!--#include virtual="temp/~temp1482.asp" --><%
Case 1481
%><!--#include virtual="temp/~temp1481.asp" --><%
Case 1480
%><!--#include virtual="temp/~temp1480.asp" --><%
Case 1479
%><!--#include virtual="temp/~temp1479.asp" --><%
Case 1478
%><!--#include virtual="temp/~temp1478.asp" --><%
Case 1477
%><!--#include virtual="temp/~temp1477.asp" --><%
Case 1476
%><!--#include virtual="temp/~temp1476.asp" --><%
Case 1475
%><!--#include virtual="temp/~temp1475.asp" --><%
Case 1474
%><!--#include virtual="temp/~temp1474.asp" --><%
Case 1473
%><!--#include virtual="temp/~temp1473.asp" --><%
Case 1472
%><!--#include virtual="temp/~temp1472.asp" --><%
Case 1471
%><!--#include virtual="temp/~temp1471.asp" --><%
Case 1470
%><!--#include virtual="temp/~temp1470.asp" --><%
Case 1469
%><!--#include virtual="temp/~temp1469.asp" --><%
Case 1468
%><!--#include virtual="temp/~temp1468.asp" --><%
Case 1467
%><!--#include virtual="temp/~temp1467.asp" --><%
Case 1466
%><!--#include virtual="temp/~temp1466.asp" --><%
End Select
%>
<%
If Request.Querystring("url") <> "" Then

Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT TOP 1 * From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'nyheter'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%><!-- #include file="home_menu.asp" --><table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"><tr><td width="68%" valign="top" height="1"><br>
<img border="0" src="logo/nyheter.gif"><br><br>
<%If NOT RecSet("bild_2") = "" Then%>
<img border="1" src="abc123/news/<%=RecSet("bild_2")%>.gif"><br>
<img border="0" src="green/mellan.rum.gif" width="1" height="1"><br><%End If%>
<%If NOT RecSet("kommentar_2") = "" Then%><font face="arial"><%=RecSet("kommentar_2")%></font><br>
<img border="0" src="green/mellan.rum.gif" width="1" height="1"><br>
<%End If%>
<%If NOT RecSet("foto_2") = "" Then%><font face="arial">Foto: <%=RecSet("foto_2")%></font><%End If%>
<%If NOT RecSet("bild_2") = "" Then%><br><img border="0" src="green/mellan.rum.gif" width="1" height="5"><br><%End If%>
<%If NOT RecSet("bild") = "" Then%>
<table width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="38" align="right">
<tr>
<td width="0%">
<img border="1" src="abc123/news/<%=RecSet("bild")%>.gif"><br>
<img border="0" src="green/mellan.rum.gif" width="1" height="1"><br><%End If%>
<%If NOT RecSet("kommentar") = "" Then%><font face="arial"><%=RecSet("kommentar")%></font><br>
<img border="0" src="green/mellan.rum.gif" width="1" height="1"><br>
<%End If%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="0%">
<tr>
<td width="100%">
<%If NOT RecSet("foto") = "" Then%><font face="arial">Foto: <%=RecSet("foto")%></font>
<%End If%>
<%If NOT RecSet("bild") = "" Then%>
</td>
</tr>
</table>
<%End If%>
</td>
<td width="4"><img border="0" src="green/mellan.rum.gif" width="4" height="1"></td>
</tr>
</table>
<font size="2"><b><%=RecSet("rubrik")%></b></font><br>
<img border="0" src="green/mellan.rum.gif" width="1" height="3"><br>
<b><%=RecSet("intro")%></b>
<br><img border="0" src="green/mellan.rum.gif" width="1" height="3"><br>
<%Fixa = Server.HTMLEncode(RecSet("nyhet"))
Fixa = Replace(Trim(Fixa),"[line]","<img src=images/line.gif>")
Fixa = Replace(Trim(Fixa),"[","<")
Fixa = Replace(Trim(Fixa),"]",">")
Fixa = Replace(Trim(Fixa), vbCrLf, "<br>")
Response.Write Fixa%>
<br><br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="201">
<tr>
<td width="75"><b>Publicerad:</b></td>
<td width="126"><i><%=RecSet("datum")%></i></td>
</tr>
<tr>
<td width="75"><b>Uppdaterad:</b></td>
<td width="126"><i><%=RecSet("updated")%></i></td>
</tr>
</table>
<%
If Request.Querystring("url") <> "" Then

Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT TOP 1 * From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'dagbok'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%><!--#include file="information_menu.asp" --><table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"><tr><td width="68%" valign="top" height="1"><br>
<img border="0" src="logo/dagbok.gif"><br><br>
<b><%=RecSet("rubrik")%></b><br>
<img border="0" src="hoger_meny/mellan.gif" width="1" height="5"><br>
<%Fixa = Server.HTMLEncode(RecSet("kod"))
Fixa = Replace(Trim(Fixa), vbCrLf, "<br>")
Response.Write Fixa%><br>
<br>
<b>Publicerad:</b> <%=RecSet("datum")%><br>
<br>
<%
If Request.Querystring("url") <> "" Then

Set MinCon = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.RecordSet")

MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT TOP 1 * From nyheter Where url=" & Request.Querystring("url") &" AND visa = 'disko'"
RecSet.Open SQL, MinCon

Do While Not RecSet.EOF
%><!--#include file="information_menu.asp" --><table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="98%" height="1"><tr><td width="68%" valign="top" height="1"><br>
<img border="0" src="logo/diskografi.gif"><br><br>
<b><%=RecSet("rubrik")%><br>
</b><%=RecSet("skivdatum")%><br>
<br>
<img border="0" src="http://www.josefine-sundstrom.net/\<%=RecSet("bild")%>">
<a target="_blank" href="http://www.cdon.com/SE">
Beställ på CDON.com</a><br>
<br>
<%=RecSet("kod")%>
<%
RecSet.MoveNext
Loop

RecSet.Close
Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
End If
%>

solbulleMedlem sedan mars 20015 287 inlägg
#8

Ta bort raden:

If Request.Querystring("url") <> "" Then

mitt i koden.

solbulleMedlem sedan mars 20015 287 inlägg
#9

Nexus86 skrev:

Du har aldrig funderat på att göra koderna lite mer lättlästa va??...

Kan bara hålla med.

wunderbarenMedlem sedan dec. 2002105 inlägg
#10

Är det ngn som ser ngt fel?

solbulleMedlem sedan mars 20015 287 inlägg
#11

Fungerade det inte med det jag skrev???

wunderbarenMedlem sedan dec. 2002105 inlägg
#12

nope.....det e många fel liksom...

solbulleMedlem sedan mars 20015 287 inlägg
#13

Bryt upp koden i mindre bitar och testa bit för bit så lär du snart lokaliserat felen.

icaaqMedlem sedan okt. 20005 273 inlägg
#14

Du vet att alla dina includes kommer att bearbetas av servern va....??

mvh icaaq

wunderbarenMedlem sedan dec. 2002105 inlägg
#15

vad menar du med det?

Ekströms avatarEkströmMedlem sedan feb. 20022 594 inlägg
#16

Alla filer kommer hämtas till sidan. Använder du Server.Execute() så behöver det inte bli så.

wunderbarenMedlem sedan dec. 2002105 inlägg
#17

kan man ha asp i sidorna då?

icaaqMedlem sedan okt. 20005 273 inlägg
#18

Ja

wunderbarenMedlem sedan dec. 2002105 inlägg
#19

Hur gör man koden då?

icaaqMedlem sedan okt. 20005 273 inlägg
#20
[red]
Select Case myMeny
Case 1488
     Server.Execute("temp/~temp1488.asp")
...
...
[/red]

Jag vet inte hur sökvägen ligger men det fixar du nog till....

mvh icaaq

270 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
143 ms — hämta tråd, inlägg och bilagor (db)
120 ms — ändringar (db)