Notifikationer

Markér alle som læst Log ud

mkjeldsen Nybegynder

17. april 2001 - 10:31 Der er 9 kommentarer og
1 løsning

?? udskrift fra database

Jeg ved ikke helt hvordant jeg skal stille spørgsmålet...

I min database har jeg en tabel med numre, 01 - 02 - 03 osv.

Men på den side, tabellen skal skrives ud på, må \"nullerne\" ikke komme med.....

HVORDANT GØR MAN DET???

Synes godt om

nute Nybegynder

17. april 2001 - 10:34 #1

<%
str = \"01\"
response.write CInt(str)
%>

/nute

Synes godt om

sone Nybegynder

17. april 2001 - 10:36 #2

response.write(right(\"0\"&RS(\"tal\"), 2))

Synes godt om

nute Nybegynder

17. april 2001 - 10:39 #3

sone >> det er ikke en pen måte å gjøre det på.... hvorfor ikke benytte den innebyggede funksjonaliteten i ASP som fx CInt() ??

Synes godt om

sone Nybegynder

17. april 2001 - 10:40 #4

Jeg læste spm. forkert - jeg troede at nullerne skulle med.

Synes godt om

mkjeldsen Nybegynder

17. april 2001 - 10:48 #5

nute>> Det ser nok rigtigt ud, men umiddelbart kan jeg ikke finde ud af at sætte det ind i koderne. Det er ModulNr, det drejer sig om.

Her er koderne
---
<%@ language = \"VBScript\" %>
<% Option Explicit%>

<% Session.LCID = 1030 %>

<HTML>
<HEAD>
<TITLE>main</TITLE>

<meta name=\"autor\" name=\"Mogens Kjeldsen\">

<script language=\"JavaScript\">

</script>



<%
Dim Connect, Id, strSQL, strDNS, rs, ModulId

Set rs = Server.CreateObject(\"ADODB.RecordSet\")

\'Laver SQL forespørgsel til tabel
strSQL = \"SELECT * FROM modul ORDER by ModulNr\"

\'Laver DNSles forbindelse til database
strDNS = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"./database/item_ordre.mdb\")

\'Åbner database og SQL
rs.Open strSQL, strDNS, 1

%>

<link rel=\"stylesheet\" type=\"text/css\" href=\"../style.css\">
</HEAD>

<BODY bgcolor=\"white\" text=\"#005D99\" alink=\"#005D99\" vlink=\"#005D99\" link=\"#005D99\">
<br>
<table cellspacing=\"0\" border=\"0\" cellpadding=\"5\" width=\"100%\" align=\"center\">

<tr>

<td> <font size=\"2\" face=\"verdana\" color=\"#005D99\"><b>Modulnr.:</b></td>

<td> <font size=\"2\" face=\"verdana\" color=\"#005D99\"><b>Tittel:</b></td>

<td> <font size=\"2\" face=\"verdana\" color=\"#005D99\"><b>Software:</b></tr>
<%
Do until rs.EOF
%>

<TR>

<td align=\"left\">
<font size=\"1\" face=\"verdana\" color=\"#005D99\">
<%=rs(\"ModulNr\")%>
</td>

<td> <a href=\"main1.asp?ModulId=<%=rs(\"ModulID\")%>\"> <font size=\"1\" face=\"verdana\" color=\"#005D99\"><%=rs(\"ModulTitel\")%></td>

<td> <font size=\"1\" face=\"verdana\" color=\"#005D99\"> <%=rs(\"SoftwareNavnVersion\")%></td>

</a>

</tr>

<% rs.MoveNext
loop
%>

</table>

</BODY>
</HTML>

Synes godt om

nute Nybegynder

17. april 2001 - 10:51 #6

Do until rs.EOF
%>

<TR>

<td align=\"left\">
<font size=\"1\" face=\"verdana\" color=\"#005D99\">
<%=CInt(rs(\"ModulNr\"))%>
</td>

<td> <a href=\"main1.asp?ModulId=<%=rs(\"ModulID\")%>\"> <font size=\"1\" face=\"verdana\" color=\"#005D99\"><%=rs(\"ModulTitel\")%></td>

<td> <font size=\"1\" face=\"verdana\" color=\"#005D99\"> <%=rs(\"SoftwareNavnVersion\")%></td>

</a>

</tr>

<% rs.MoveNext
loop

Synes godt om

mkjeldsen Nybegynder

17. april 2001 - 10:56 #7

Tak - men så får jeg denne fejl

Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a005e\'

Null er brugt ugyldigt: \'CInt\'

/Itemnyweb2/Katalog/main.asp, linje 70

Synes godt om

nute Nybegynder

17. april 2001 - 10:59 #8

det vil si at

rs(\"ModulNr\")

ikke inneholder noe... prøv å bytt ut denne linje:

<%=CInt(rs(\"ModulNr\"))%>

med dette:

<%
if( LEN(TRIM(rs(\"ModulNr\") ) ) ) then
response.write \"ModulNr er tom\"
else
response.write CInt(rs(\"ModulNr\")
end if
%>

/nute

Synes godt om

mkjeldsen Nybegynder

17. april 2001 - 11:08 #9

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a03fb\'

\'Loop\' var ventet

/Itemnyweb2/Katalog/main.asp, linje 73

else response.write CInt(rs(\"ModulNr\")
^

Synes godt om

nute Nybegynder

17. april 2001 - 11:11 #10

din loop skal se sånn ut:

Do until rs.EOF
%>

<TR>

<td align=\"left\">
<font size=\"1\" face=\"verdana\" color=\"#005D99\">
<%
if( LEN(TRIM(rs(\"ModulNr\") ) ) ) then
response.write \"ModulNr er tom\"
else
response.write CInt(rs(\"ModulNr\")
end if
%>
</td>

<td> <a href=\"main1.asp?ModulId=<%=rs(\"ModulID\")%>\"> <font size=\"1\" face=\"verdana\" color=\"#005D99\"><%=rs(\"ModulTitel\")%></td>

<td> <font size=\"1\" face=\"verdana\" color=\"#005D99\"> <%=rs(\"SoftwareNavnVersion\")%></td>

</a>

</tr>

<% rs.MoveNext
loop

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS