webForumDet fria alternativet

Början av ett inlägg?

ASP

5 svar · 180 visningar · startad av fjuri

Medlem sedan dec. 199970 inlägg
Frågan#1

Hej.. hur ser den kompletta koden ut för att visa... säg 70 tecken, ur ett inlägg från en databas?
Kolumnen i databasen heter "Text".

Tack!

------------------
Mvh
/Andreas P

Medlem sedan maj 200067 inlägg
#2

Hej!

Dim TextAttVisa
TextAttVisa = Left(rsObj("Text"), 70)

Koden ovan plockar ut de 70 första tecknen i en cell ur kolumnen "Text" och lagrar tecknen i variabeln TextAttVisa.

Koden för att hämta datan ur databasen är inte inkluderad i exemplet!

Mvh Razor

Medlem sedan dec. 199970 inlägg
#3

Hej, och tack för hjälpen!
Men jag har inte fått det att funka ändå... är det för att jag har en loop? Vet inte ens ifall själva kodandet är rätt, har inte lekt tillräckligt med "Dim" grejjset än :)
Så här ser ivarje fall koden ut, du kanske kan hjälpa mig?

<%
Dim TextAttVisa

set conn=server.createobject("adodb.connection")
path="DBQ=" & server.mappath("admin/news.mdb")
conn.open "driver={microsoft access driver (*.mdb)}; " & path,"name","name"

sql = "select * from News order by ID DESC"
set rs = Server.CreateObject("ADODB.Recordset") 
rs.Open sql, conn, 3, 3 

TextAttVisa = Left(rsObj("Text"), 70)

i = "1" 
Do until rs.eof or i = "5" 
%> <br>
            <br>
            <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font face="Georgia, Times New Roman, Times, serif" color="#FFFFFF"><%=rs("topic")%></font></b><font face="Georgia, Times New Roman, Times, serif" color="#FFFFFF"><br>
            <%= TextAttVisa %></font></font><A HREF="#" onClick="MyWi=window.open('news_win.asp?ID=<%=rs("ID")%>','Nyheter','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizeable=no,width=400,height= 450')"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">...</font> 
            <img src="images/arrow_black.gif" width="9" height="9" border="0"><br>
            </a>
            <br>
            <% i = i +1
		rs.movenext
		loop
		rs.close
		conn.close %>

Fel meddelandet jag får är:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rsObj'

Tack på förhand!

------------------
Mvh
/Andreas P

Medlem sedan aug. 2000304 inlägg
#4

fjuri:
Du har missat att knyta in ditt Record Set med Razors kodsnutt!

Ändra rsObj mot RS
Och har du tabellent "Text" i din db?

------------------
/CoolDude

Medlem sedan dec. 199970 inlägg
#5

oh.. thanks!
hmm, verkar vara lite skumt. Den visar lite text, fast det ser ut som en utav rubrikerna..
Koloumnen heter "Text" ja

------------------
Mvh
/Andreas P

Medlem sedan dec. 199970 inlägg
#6

Löste sig.. tack för hjälpen!!!!!!!

------------------
Mvh
/Andreas P

[Redigerat av fjuri den 23 dec 2000]

249 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
121 ms — deklarationer (db)
0 ms — hämta statistik (cache)
125 ms — hämta tråd, inlägg och bilagor (db)
117 ms — ändringar (db)