/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Hjælp indsætning af inhold fra en database~
Fra : Thormod Kressner


Dato : 10-03-09 15:21

Hej !
Jeg har et problem jeg vil gerne have denne kode delt op i en
tabel

' SQL forespørgsel
strSQL = "Select * From Kalender Where dato >= Now"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

' Udskriv værdien af kolonnen Dato, Hal, Hjemme, ude og pris i
en tabel
Response.Write DanskDatoTid(FormatDateTime(rs("dato"))) & " "
& rs("Hal") & " " & rs("Hjemme") & " " & rs("ude") & " " &
rs("pris") & "<br>"

' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

er der nogle der kan hjælpe med dette jeg skal bruge det ti en
kalender oversigt, kontakt personer, personlige rekorder men jeg
skal bare lige forstå hvordan man går



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Anders M (10-03-2009)
Kommentar
Fra : Anders M


Dato : 10-03-09 15:54

> ' SQL forespørgsel
> strSQL = "Select * From Kalender Where dato >= Now"
> ' Udfør forespørgsel (rs indeholder nu resultatet)
> Set rs = Conn.Execute(strSQL)

Så vi jeg indsætte:
Response.Write "<tabel><tr><td>TEKST</td>.....</tr><tr>"
> ' Gennemløb Recordset (rs) med en løkke
> Do
>
> ' Udskriv værdien af kolonnen Dato, Hal, Hjemme, ude og pris i
> en tabel
> Response.Write "<td>" &
DanskDatoTid(FormatDateTime(rs("dato"))) & "</td>" ' Gå til
næste Record i rs
> rs.MoveNext
>
> ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> Loop While Not rs.EOF

Og så til sidst
Response.Write "</tr></tabel>"
> ' Luk databaseforbindelse
> Conn.Close
> Set Conn = Nothing
> %>
>

Ved ikke om det var det du tænkte på?

Hilsen Anders GM

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Thormod Kressner (10-03-2009)
Kommentar
Fra : Thormod Kressner


Dato : 10-03-09 17:54

Det var noget i den stil som jeg også have prøvet men ikke kunne få til
at virke, og det kan jeg stadig ikke, men nu ser det sådan ud.

' SQL forespørgsel
strSQL = "Select * From Kalender Where dato >= Now"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

Response.Write
"<tabel><tr><td>Dato</td><td>hal</td><td>Hjemme</td><td>ude</td><td>pri
s</td></tr><tr>"
' Gennemløb Recordset (rs) med en løkke
Do

' Udskriv værdien af kolonnen Dato, Hal, Hjemme, Ude, Pris i tabel
Response.Write "<td>" & DanskDatoTid(FormatDateTime(rs("dato"))) &
"/td>" & "<td>" & rs("Hal") & "/td>" & "<td>" & rs("Hjemme") & "/td>" &
"<td>" & rs("ude") & "/td>" & "<td>" & rs("pris") & "</td>

' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

Response.Write "</tr></tabel>"

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
men jeg for denne fejl

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/test/test4.asp, line 46

Response.Write "<td>" & DanskDatoTid(FormatDateTime(rs("dato"))) &
"/td>" & "<td>" & rs("Hal") & "/td>" & "<td>" & rs("Hjemme") & "/td>" &
"<td>" & rs("ude") & "/td>" & "<td>" & rs("pris") & "</td>

Mvh Thormod Kressner

Anders M wrote in dk.edb.internet.webdesign.serverside.asp:
> > ' SQL forespørgsel
> > strSQL = "Select * From Kalender Where dato >= Now"
> > ' Udfør forespørgsel (rs indeholder nu resultatet)
> > Set rs = Conn.Execute(strSQL)
>
> Så vi jeg indsætte:
> Response.Write "<tabel><tr><td>TEKST</td>.....</tr><tr>"
> > ' Gennemløb Recordset (rs) med en løkke
> > Do
> >
> > ' Udskriv værdien af kolonnen Dato, Hal, Hjemme, ude og pris i
> > en tabel
> > Response.Write "<td>" &
> DanskDatoTid(FormatDateTime(rs("dato"))) & "</td>" ' Gå til
> næste Record i rs
> > rs.MoveNext
> >
> > ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> > Loop While Not rs.EOF
>
> Og så til sidst
> Response.Write "</tr></tabel>"
> > ' Luk databaseforbindelse
> > Conn.Close
> > Set Conn = Nothing
> > %>
> >
>
> Ved ikke om det var det du tænkte på?
>
> Hilsen Anders GM
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Anders M (10-03-2009)
Kommentar
Fra : Anders M


Dato : 10-03-09 19:18

> ' SQL forespørgsel
> strSQL = "Select * From Kalender Where dato >= Now"
> ' Udfør forespørgsel (rs indeholder nu resultatet)
> Set rs = Conn.Execute(strSQL)
>
> Response.Write
> "<tabel><tr><td>Dato</td><td>hal</td><td>Hjemme</td><td>ude</td><td>pri
> s</td></tr><tr>"
> ' Gennemløb Recordset (rs) med en løkke
> Do
>
> ' Udskriv værdien af kolonnen Dato, Hal, Hjemme, Ude, Pris i tabel
> Response.Write "<td>" & DanskDatoTid(FormatDateTime(rs("dato"))) &
> "/td>" & "<td>" & rs("Hal") & "/td>" & "<td>" & rs("Hjemme") & "/td>" &
> "<td>" & rs("ude") & "/td>" & "<td>" & rs("pris") & "</td>
>
> ' Gå til næste Record i rs
> rs.MoveNext
>
> ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> Loop While Not rs.EOF
>
> Response.Write "</tr></tabel>"
>
> ' Luk databaseforbindelse
> Conn.Close
> Set Conn = Nothing
> %>

DanskDatoTid(FormatDateTime(rs("dato")))

hvad har du skrevet i tabelen, dato?
Har du skrevet længere oppe i koden hvad DanskDatoTid er?

du glemmer desuden at lukke dine </td> tags ordentligt. Du har bare
skrevet /td>..

Hilsen Anders


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Thormod Kressner (10-03-2009)
Kommentar
Fra : Thormod Kressner


Dato : 10-03-09 20:52

Jeg har datoer og klokke i dato og det virker lige indtil jeg vil sætte det
ind i en tabel og jeg har en funktion der hedder
<%
Function DanskDatoTid(dato)

' Array med danske navne på dage
arrDag = ",mandag,tirsdag,onsdag,torsdag,fredag,lørdag,søndag"
arrDag = Split(arrDag,",")

' Array med danske navne på måneder
arrMaaned = ",januar,februar,marts,april,maj,juni,juli,august,"
arrMaaned = arrMaaned & "september,oktober,november,december"
arrMaaned = Split(arrMaaned,",")

' Datoen sammensættes
DanskDatoTid = arrDag(Weekday(dato,VbMonday)) & " d. " & Day(dato) & ". "
DanskDatoTid = DanskDatoTid & arrMaaned(Month(dato)) & " " & Year(dato)

End Function

' Afprøv funktionen
%>
og så var der lige smuttet en "<" da jeg klippede og sat ind
men jeg får stadig fejlen

Microsoft VBScript compilation error '800a03ea'

Syntax error

/test/test4.asp, line 46

Response.Write "<td>" & DanskDatoTid(FormatDateTime(rs("dato"))) & "</td>" &
"<td>" & rs("Hal") & "</td>" & "<td>" & rs("Hjemme") & "</td>" & "<td>" &
rs("ude") & "</td>" & "<td>" & rs("pris") & "</td>

Mvh Thormod Kressner

Anders M wrote in dk.edb.internet.webdesign.serverside.asp:
> > ' SQL forespørgsel
> > strSQL = "Select * From Kalender Where dato >= Now"
> > ' Udfør forespørgsel (rs indeholder nu resultatet)
> > Set rs = Conn.Execute(strSQL)
> >
> > Response.Write
> > "<tabel><tr><td>Dato</td><td>hal</td><td>Hjemme</td><td>ude</td><td>pri
> > s</td></tr><tr>"
> > ' Gennemløb Recordset (rs) med en løkke
> > Do
> >
> > ' Udskriv værdien af kolonnen Dato, Hal, Hjemme, Ude, Pris i tabel
> > Response.Write "<td>" & DanskDatoTid(FormatDateTime(rs("dato"))) &
> > "/td>" & "<td>" & rs("Hal") & "/td>" & "<td>" & rs("Hjemme") & "/td>" &
> > "<td>" & rs("ude") & "/td>" & "<td>" & rs("pris") & "</td>
> >
> > ' Gå til næste Record i rs
> > rs.MoveNext
> >
> > ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> > Loop While Not rs.EOF
> >
> > Response.Write "</tr></tabel>"
> >
> > ' Luk databaseforbindelse
> > Conn.Close
> > Set Conn = Nothing
> > %>
>
> DanskDatoTid(FormatDateTime(rs("dato")))
>
> hvad har du skrevet i tabelen, dato?
> Har du skrevet længere oppe i koden hvad DanskDatoTid er?
>
> du glemmer desuden at lukke dine </td> tags ordentligt. Du har bare
> skrevet /td>..
>
> Hilsen Anders
>
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Jørn Andersen (11-03-2009)
Kommentar
Fra : Jørn Andersen


Dato : 11-03-09 02:36

On 10 Mar 2009 16:54:25 GMT, Thormod Kressner <tman_ups@tiscali.dk>
wrote:

>men jeg for denne fejl
>
>Microsoft VBScript compilation error '800a0409'
>
>Unterminated string constant
>
>/test/test4.asp, line 46
>
>Response.Write "<td>" & DanskDatoTid(FormatDateTime(rs("dato"))) &
>"/td>" & "<td>" & rs("Hal") & "/td>" & "<td>" & rs("Hjemme") & "/td>" &
>"<td>" & rs("ude") & "/td>" & "<td>" & rs("pris") & "</td>

Du mangler " efter den sidste </td>

PS: Gider du tage et kig på:
<url: http://usenet.dk/?side=citatteknik>

--
Jørn Andersen,
Brønshøj

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408914
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste