Avatar billede da_darkside Nybegynder
10. juli 2002 - 16:28 Der er 8 kommentarer og
1 løsning

Flere sprog på min side - behøver lidt hjælp :-/

Jeg har en side som jeg gerne skulle lave på Dansk, Tysk & Engelsk :)

det var så meningen jeg ville ligge alle "sætninger" i en db så det bare skulle vælges ud fra en given session.

Jeg har siddet og leget lidt med... men det virker ikke helt ? - Nogen forslag til hvad jeg skal gøre for det kommer til at virke ?

<%
Response.Buffer = True
mode = Request.QueryString("mode")

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("test.mdb")

set rs = Conn.Execute("select * From Test order by ID")
%>

<% if rs.eof or rs.bof then %>

Kontakt venligst webmaster og fortæl config mangler...

<%
else
Do until rs.eof        
%><%
Str""& rs("ID") &"" = ""& rs("Sentence") &""
%><%
rs.movenext
loop

rs.close
end if %>
Avatar billede hells Nybegynder
10. juli 2002 - 16:42 #1
prøv at udskifte din løkke med dette:
Do
Response.Write "Str" & rs("ID") & " = " & rs("Sentence")
rs.MoveNext
Loop While NOT rs.EOF
Avatar billede hells Nybegynder
10. juli 2002 - 17:01 #2
hvad skal denne forresten bruges til?:
mode = Request.QueryString("mode")
Avatar billede da_darkside Nybegynder
10. juli 2002 - 17:17 #3
Well, jo alså både og - nu skriver den det ud så man kan "se det"

Det var jo sådanset ikke meningen *G*

meningen var at den lavede en str som så senere kunne skrives ud ved eks
<%=Str254%>, det var dette jeg ikke kunne få til at virke.
Avatar billede hells Nybegynder
10. juli 2002 - 17:21 #4
Det tror jeg desværre heller ikke, man kan få den til
Avatar billede da_darkside Nybegynder
10. juli 2002 - 17:29 #5
uhm, det burde det gerne - skal ihvertfal have lavet et sprog modul og det skal køre over en db :-/
Avatar billede brynil Nybegynder
10. juli 2002 - 17:39 #6
Hvor har du angivet hvilket sprog der skal hentes?
Avatar billede eagleeye Praktikant
10. juli 2002 - 17:55 #7
Du kan gøre det med et array, her er Str et array, så du så skal skrive ud Str(254). I dette eks uskriver den to linier hvor ID=1 og ID=5:

'Definer Str som array
Dim Str()

set rs = Conn.Execute("select * From Test order by ID")
if rs.eof or rs.bof then
%>
Kontakt venligst webmaster og fortæl config mangler...
<%
else
  Do until rs.eof       
    'Gør plads til ny streng i arrayet
    redim preserve Str(rs("id"))
    'Lig ny sentence i arrayet
    Str(rs("ID")) = rs("Sentence")
    rs.movenext
  loop
end if
rs.close

'Udskriv fra arrayet
Response.Write Str(1) & "<br>"
Response.Write Str(5) & "<br>"
Avatar billede eagleeye Praktikant
14. juli 2002 - 19:17 #8
Fandt lidt en anden metode så du kan bruge det på den måde du spørger efter, du kan bruge functionen execute som kan execute en streng med kode sådan her:

<% if rs.eof or rs.bof then %>
  Kontakt venligst webmaster og fortæl config mangler...
<%
else
  Do until rs.eof       
    Execute ("Str" & rs("id") & "=""" & rs("Sentence") & """")
    rs.movenext
  loop
end if
rs.close
%>


Så kan du udskrive de forskligge strenge:  <%=Str254%>
Avatar billede da_darkside Nybegynder
14. juli 2002 - 20:43 #9
Det her ser faktisk kanont ud *S* mange takker eagleeye :-)))
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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