Skrivet inte ut..

10 svar · 166 visningar · startad av cgi 18 maj 2000

cgiMedlem sedan jan. 2000371 inlägg

Trådstart18 maj 2000 16:33#1

När jag använder mig av denna kod:

<%@ LANGUAGE="VBScript" %>


<%
id = Request("id")

Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
    MdbFilePath = Server.MapPath("radannons.mdb") 'Specifierar sökvägen till databasen
    Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen

SQLStmt = "SELECT \*, Format$(\[datum\],'yyyy/mm/dd') AS formdatum "
SQLStmt = SQLStmt & "FROM Annonser, Kategorier "
SQLStmt = SQLStmt & "WHERE Annonser.Kategori_id=Kategorier.Kat_Id "
SQLStmt = SQLStmt & "AND Annonser.Id=" & id & " "

%>
<html>

<head>

<title>-Läs annons-</title>
</head>

<%
CurrentRecord = 0

Do While CheckRS(RS)%\>

<center>

Annonsen skriven av <a href="mailto:<%=rs("Epost")%>"><%=("Namn")%></a> den <%=rs("Datum")%>.

Beskrivning: 
<%=rs("Beskrivning")%>

Tel: <%=rs("Telefon")%>

<% RS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%>

\</form\>
\<p align="center"\>&nbsp;\<br\>
\</p\>
\<p align="center"\>&nbsp;\</p\>
\<p align="center"\>&nbsp;\</p\>
\<p align="center"\>&nbsp;\</td\>

</tr>
</table>
</body>
</html>

Så skriver den inte ut hela html koden utan bara denna del:
<html>

<head>

<title>-Läs annons-</title>
</head>

 \</form\>
\<p align="center"\>&nbsp;\<br\>
\</p\>
\<p align="center"\>&nbsp;\</p\>
\<p align="center"\>&nbsp;\</p\>
\<p align="center"\>&nbsp;\</td\>

</tr>
</table>
</body>
</html>

Varför.??

VideMedlem sedan dec. 19998 577 inlägg

18 maj 2000 16:44#2

För det första så har du inte exekverat din SQL-fråga. Lägg till 'Set RS = databas.Execute(SQLStmt)', efter din SQL-sträng.

Sedan ser Loopen konstig ut den också, byt 'Do While CheckRS(RS)' mot 'Do while NOT RS.EOF

cgiMedlem sedan jan. 2000371 inlägg

18 maj 2000 17:18#3

Nej du, den vill fortfarande inte skriva ut html koden.

VideMedlem sedan dec. 19998 577 inlägg

19 maj 2000 07:10#4

... och du får inget felmeddelande?

cgiMedlem sedan jan. 2000371 inlägg

19 maj 2000 11:47#5

Nej jag får inget felmeddelande.

VideMedlem sedan dec. 19998 577 inlägg

19 maj 2000 13:01#6

Okej... skulle du kunna visa koden som den ser ut nu...

cgiMedlem sedan jan. 2000371 inlägg

19 maj 2000 16:21#7

Ok här kommer koden:

<%@ LANGUAGE="VBScript" %>


<%
id = Request("id")

Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
    MdbFilePath = Server.MapPath("radannons.mdb") 'Specifierar sökvägen till databasen
    Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen

SQLStmt = "SELECT \*, Format$(\[datum\],'yyyy/mm/dd') AS formdatum "
SQLStmt = SQLStmt & "FROM Annonser, Kategorier "
SQLStmt = SQLStmt & "WHERE Annonser.Kategori_id=Kategorier.Kat_Id "
SQLStmt = SQLStmt & "AND Annonser.Id=" & id & " "
    'Set RS = databas.Execute(SQLStmt)',

<html>

<head>

<title>-Läs annons-</title>
</head>

<%
CurrentRecord = 0

'Do while NOT RS.EOF

<center>

Annonsen skriven av <a href="mailto:<%=rs("Epost")%>"><%=("Namn")%></a> den <%=rs("Datum")%>.

Beskrivning: 
<%=rs("Beskrivning")%>

Tel: <%=rs("Telefon")%>

<% RS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%>

\</form\>
\<p align="center"\>&nbsp;\<br\>
\</p\>
\<p align="center"\>&nbsp;\</p\>
\<p align="center"\>&nbsp;\</p\>
\<p align="center"\>&nbsp;\</td\>

</tr>
</table>
</body>
</html>

Du vet ju förut när jag hade problem
med att den inte lagrade i databasen,
och du sa att jag skulle lägga till
denna rad databas.Execute(SQLStmt)
i Matain.asp det funkade ett tag sedan slutade den att lagra helt plöttsligt,
helt mysko, du vet inte vad det kan vara för fel.

AGMedlem sedan mars 20001 266 inlägg

19 maj 2000 20:31#8

Skall det verkligen vara ett ' i koden

<%
CurrentRecord = 0
'Do while NOT RS.EOF
%>
Testa och byt ut till
<%
CurrentRecord = 0
Do while NOT RS.EOF
%>

Testa det kan kanske fungera.

Andreas

cgiMedlem sedan jan. 2000371 inlägg

20 maj 2000 09:31#9

Nej funkar fortfarande inte.

AGMedlem sedan mars 20001 266 inlägg

20 maj 2000 10:35#10

Testa också att byta ut

'Set RS = databas.Execute(SQLStmt)',
till:
Set RS = databas.Execute(SQLStmt)

Detta är allt jag ser verkar vara fel, använd tillsammans med det jag skrev i föregående svar.

Andreas

cgiMedlem sedan jan. 2000371 inlägg

20 maj 2000 10:45#11

Det det där funkar ju kanon.