52 svar · 955 visningar · startad av Kreles
Jag har en uppgift i skolan som går ut på att göra en blogg. Jag har kört fast totalt och har ingen aning om hur jag fortsätter. :(
Uppgifterna i formuläret läggs inte in i databasen, jag vet inte hur jag ska få en kort ingress (utan att besökarna får skriva den själv. Jag vill alltså få ingressen automatiskt från den första raderna i inlägget), jag vill ha ämnet klickbart, men vet inte hur man gör det.
Du kan använda denna funktion:
http://voigt.se/voigtan/voigt3/view.asp?id=14
Provad den. Får felmeddelande:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/inetv05akli/miniprojekt/Fsupp_1.asp, line 39
function intro(id,las,text,tal) 'Skapar funktionen intro()
^
Visa mer kod.
Funktionsdefinitionen får inte ligga i en loop, utan ska ligga utanför annan kod på sidan.
Hela sidan
<%
dim conn, data, sql
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Blogg.mdb")
%>
<html>
<head>
<title>START</title>
</head>
<body>
<p><a href="fsupp_3.asp">Lägg till ny artikel</a><BR>
</p>
<table border=1>
<TR>
<TD><B>Ämne</B></TD>
<TD><B>Författare</B></TD>
<TD><B>Inlägg</B></TD>
<TD><B>Datum</B></TD>
</TR>
<%
Set data =Conn.Execute("SELECT * from Artiklar")
While Not Data.EOF
%>
<TR>
<TD><%=data("Amne")%></TD>
<TD><%=data("Forfattare")%></TD>
<TD width="100" height="20">
<%
Function intro(id,las,text,tal) 'Skapar funktionen intro()
myarr = split(text, " ")
i = 0
for i = lbound(myarr) to ubound(myarr)
select case i
case tal-1
response.write(myarr(i) & " ... <a href=""link.asp?id=" &id& """><B>" &las& "</B></a>")
exit for
case else
response.write(myarr(i) & " ")
end select
next
end function
response.write intro(2,"Läs mer >>","<%=data("Inlagg")%>",6)
%>
</TD>
<TD><%=data("Datum")%></TD>
</TR>
<%
Data.MoveNext
Wend
%>
</table>
</body>
</html>
@nders skrev:
Funktionsdefinitionen får inte ligga i en loop, utan ska ligga utanför annan kod på sidan.
Såg det. Men jag har ju ingen aning om var den ska ligga istället... (utanför naturligtvis..), tänkte om någon kunde fixa till det lite åt mig?
<%
dim conn, data, sql
Function intro(id,las,text,tal) 'Skapar funktionen intro()
myarr = split(text, " ")
i = 0
for i = lbound(myarr) to ubound(myarr)
select case i
case tal-1
response.write(myarr(i) & " ... <a href=""link.asp?id=" &id& """><B>" &las& "</B></a>")
exit for
case else
response.write(myarr(i) & " ")
end select
next
end function
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Blogg.mdb")
%>
<html>
<head>
<title>START</title>
</head>
<body>
<p><a href="fsupp_3.asp">Lägg till ny artikel</a><BR>
</p>
<table border=1>
<TR>
<TD><B>Ämne</B></TD>
<TD><B>Författare</B></TD>
<TD><B>Inlägg</B></TD>
<TD><B>Datum</B></TD>
</TR>
<%
Set data =Conn.Execute("SELECT * from Artiklar")
While Not Data.EOF
%>
<TR>
<TD><%=data("Amne")%></TD>
<TD><%=data("Forfattare")%></TD>
<TD width="100" height="20">
<%
response.write intro(2,"Läs mer >>","<%=data("Inlagg")%>",6)
%>
</TD>
<TD><%=data("Datum")%></TD>
</TR>
<%
Data.MoveNext
Wend
%>
</table>
</body>
</html>
Använd helst [kod]-taggar när du postar kod, så blir det mer lättläst.
mvh
Tack så mycket =)
Fick felmeddelande
Microsoft VBScript compilation error '800a03ee'
Expected ')'
/inetv05akli/miniprojekt/Fsupp_1.asp, line 52
response.write intro(2,"Läs mer >>",")<%=data("Inlagg")
-----------------------------------------------^
response.write intro(2,"Läs mer >>",data("Inlagg"),6)
Tack så jättemycket för hjälpen :f
http://62.13.13.12:2005/inetv05akli/miniprojekt/Fsupp_1.asp sidan ser ut så just nu, men jag ska till skolan strax och försöka få iordning på det.
Du kanske vet varför det man skriver in på en annan sida inte sparas i databasen?
<%option explicit%>
<%
dim conn, data, sql
set conn = createobject("ADODB.connection")
conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb")
if request.ServerVariables("remote_method")="post" then
set data = server.createobject("ADODB.connection")
sql = "select * from Artiklar"
data.open sql, conn, 2, 3
data.addnew
data("Ämne") = request.form("Amne")
data("Författare") = request.form("Forfattare")
data("Inlägg") = request.form("Inlagg")
data("Datum") = request.form("Datum")
data.uppdate
end if
conn.close
%>
<html>
<head>
<title>Ny artikel</title>
</head>
<body>
<table>
<tr>
<form action="Fsupp_3.asp" method="post">
<tr>
<td>Rubrik:</td>
<td>
<input type="text" name="Amne">
</td>
</tr>
<tr>
<td>Namn:</td>
<td>
<input type="text" name="Forfattare">
</td>
</tr>
<tr>
<td>Inlägg:</td>
<td>
<textarea name="Inlagg" rows="10" cols="50">Skriv dit inlägg här...</textarea>
</td>
</tr>
<tr>
<td>Datum:</td>
<td>
<input type="text" name="Datum" value="<%=date%>">
</td>
</tr>
<tr>
<td></td>
<td>
<input type="submit" name="Spara" value="Skicka">
<input type="reset" name="Ta bort" value="Rensa">
</td>
</tr>
</form>
</tr>
</table>
</body>
© <%=formatdatetime(date, vblongdate)%>
</html>
Jag skulle tro att det beror på if-satsen:
if request.ServerVariables("remote_method")="post" then
Jag tror inte det finns något som heter remote_method, däremot request_method. Jag hade dock kontrollerat på något annat sätt, exempelvis att något postats i fältet inlagg:
if request.form("Inlagg") <> "" then
mvh
Nu gick det nog bättre =) Fick ett felmeddelande när jag skickat formuläret =) (bättre än att inget händer tycker jag...)
Den gnäller om att den inte hittar databasen *suck*, den ligger i samma mapp på samma server
Exakt vad för felmeddelande får du?
Ett litet fel till hittade jag. På denna rad:
conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb")
, ska det inte vara något = efter conn.open.
Mvh
Fixade det där. Laddade upp databasen igen, då gick det (fast den var där innan också..)
Men nu står det
ADODB.Connection error '800a0e78'
Operation is not allowed when the object is closed.
/inetv05akli/miniprojekt/Fsupp_3.asp, line 17
<%option explicit%>
<%
dim conn, data, sql
set conn = createobject("ADODB.connection")
conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb")
if request.form("Inlagg") <> "" then
set data = server.createobject("ADODB.connection")
sql = "select * from Artiklar"
data.open sql, conn, 2, 3
data.addnew
data("Ämne") = request.form("Amne")
data("Författare") = request.form("Forfattare")
data("Inlägg") = request.form("Inlagg")
data("Datum") = request.form("Datum")
data.uppdate
end if
conn.close
%>
<html>
<head>
<title>Ny artikel</title>
</head>
<body>
<table>
<tr>
<form action="Fsupp_3.asp" method="post">
<tr>
<td>Rubrik:</td>
<td>
<input type="text" name="Amne">
</td>
</tr>
<tr>
<td>Namn:</td>
<td>
<input type="text" name="Forfattare">
</td>
</tr>
<tr>
<td>Inlägg:</td>
<td>
<textarea name="Inlagg" rows="10" cols="50">Skriv dit inlägg här...</textarea>
</td>
</tr>
<tr>
<td>Datum:</td>
<td>
<input type="text" name="Datum" value="<%=date%>">
</td>
</tr>
<tr>
<td></td>
<td>
<input type="submit" name="Spara" value="Skicka">
<input type="reset" name="Ta bort" value="Rensa">
</td>
</tr>
</form>
</tr>
</table>
</body>
© <%=formatdatetime(date, vblongdate)%>
</html>
Fick du med dig mitt förra inlägg, eller missade du det i farten? :)
Ah
Lite fel objekttyp.
set data = server.createobject("ADODB.connection")
skall vara
set data = server.createobject("ADODB.recordset")
Mvh