Notifikationer

Markér alle som læst Log ud

l_otto Nybegynder

03. marts 2005 - 11:00 Der er 21 kommentarer og
1 løsning

Jeg kan ikke få den til at liste det rigtigt

her kommer oplysningerne frem efter hinanden bliver en al for lang liste..

<%
sqlwrk = "SELECT [Locationid], [Location] FROM [jb_Location]"
Set rswrk = Server.CreateObject("ADODB.Recordset")
rswrk.Open sqlwrk, conn, 1, 2
If Not rswrk.Eof Then
datawrk = rswrk.GetRows
rowswrk = UBound(datawrk, 2)
Dim ar_x_City, ari_x_City
ar_x_City= split(City&"",",")
For rowcntwrk = 0 To rowswrk
x_CityChk = x_CityChk & "<input type='checkbox' name='x_Ctxx"&rowcntwrk&"' value='" & datawrk(0, rowcntwrk) & "'"
For ari_x_City=0 to UBound(ar_x_City)
If CStr(datawrk(0, rowcntwrk)&"") = Trim(ar_x_City(ari_x_City)&"") Then
x_CityChk = x_CityChk & " checked"
Exit For
End If
Next
x_CityChk = x_CityChk & ">" & datawrk(1, rowcntwrk) & "<BR>"
Next
End If
rswrk.Close
Set rswrk = Nothing
Response.Write x_CityChk
%>

vil gerne have de kommer frem fire ved siden af hinanden og derefter ny linie..

Synes godt om

fennec Nybegynder

03. marts 2005 - 11:07 #1

Ret:
x_CityChk = x_CityChk & ">" & datawrk(1, rowcntwrk) & "<BR>"

til:
x_CityChk = x_CityChk & ">" & datawrk(1, rowcntwrk)
if (rowcntwrk+1) mod 4 = 0 then
x_CityChk = x_CityChk & "<BR>"
end if

Det burde gøre det....

Synes godt om

l_otto Nybegynder

03. marts 2005 - 11:17 #2

ja det gør det.. nu skal jeg bare have noget længde på så de bliver lige lange.. hvordan gør jeg det

Synes godt om

fennec Nybegynder

03. marts 2005 - 11:21 #3

var det ikke en ide at smide det i en table så??

Synes godt om

l_otto Nybegynder

03. marts 2005 - 11:25 #4

jo tak hvordan ?

Synes godt om

fennec Nybegynder

03. marts 2005 - 11:34 #5

Måske sådan??

<%
sqlwrk = "SELECT [Locationid], [Location] FROM [jb_Location]"
Set rswrk = Server.CreateObject("ADODB.Recordset")
rswrk.Open sqlwrk, conn, 1, 2
If Not rswrk.Eof Then
datawrk = rswrk.GetRows
rowswrk = UBound(datawrk, 2)
Dim ar_x_City, ari_x_City
ar_x_City= split(City&"",",")
For rowcntwrk = 0 To rowswrk
x_CityChk = x_CityChk & "<td>"
x_CityChk = x_CityChk & "<input type='checkbox' name='x_Ctxx"&rowcntwrk&"' value='" & datawrk(0, rowcntwrk) & "'"
For ari_x_City=0 to UBound(ar_x_City)
If CStr(datawrk(0, rowcntwrk)&"") = Trim(ar_x_City(ari_x_City)&"") Then
x_CityChk = x_CityChk & " checked"
Exit For
End If
Next
x_CityChk = x_CityChk & ">" & datawrk(1, rowcntwrk)
x_CityChk = x_CityChk & "</td>"
if (rowcntwrk+1) mod 4 = 0 then
x_CityChk = x_CityChk & "</tr><tr>"
end if
Next
End If
rswrk.Close
Set rswrk = Nothing
Response.write "<table><tr>"
Response.Write x_CityChk
Response.write "</tr></table>"
%>

Synes godt om

l_otto Nybegynder

03. marts 2005 - 11:37 #6

du er da al for sej... :-) det virker helt vildt godt.. kom flugs med et svar

Synes godt om

fennec Nybegynder

03. marts 2005 - 11:39 #7

.o) <-- One Eyed Jack

Synes godt om

l_otto Nybegynder

03. marts 2005 - 12:55 #8

lige et hurtigt sprg. kan man få den til at sige : jeg vælger jylland og så krydser den ribe amt, århus amt ect af ?

Synes godt om

fennec Nybegynder

03. marts 2005 - 13:23 #9

Det burde man kunne. Det skal måske hardcodes, men det kommer an på din database opbygning.

Synes godt om

l_otto Nybegynder

03. marts 2005 - 13:25 #10

ok jeg må kigge på det.. :-)

Synes godt om

l_otto Nybegynder

03. marts 2005 - 13:32 #11

det her er en dropdown kald, hvordan får jeg den til at liste det den viser i dropdownen i alfabetisk order ?

<% call DoDropDown("language_id","jb_Languages","language_id","Languages")

noget med "order by Languages" men jeg ved ikke hvor jeg skal sætte det ind... %>

Synes godt om

fennec Nybegynder

03. marts 2005 - 14:00 #12

Det skal indsættes i funktionen DoDropDown. Der har du en "select ..." sætning et eller andet sted, og der skal "order by Languages" sættes på.

Synes godt om

l_otto Nybegynder

03. marts 2005 - 14:03 #13

hmm hvor ?

<%
doconnection
domainName = Request.ServerVariables("SERVER_NAME")
url = Request.ServerVariables("URL")
url = "http://" & domainName & url

IF request.form("submit")<>"" then

call DoInsert("jb_Languages_Selected","submit,action")

end if

IF request.QueryString("del")<>"" then
SQL="delete jb_Languages_Selected where id="& request.QueryString("id") & " AND cvid="& session("cv_id")
conn.execute(SQL)
end if

%>
<body leftmargin="0" topmargin="0" marginheight="0" marginwidth="0" bgcolor="#ffffff">
<table width="40%" border="0" align="left">
<tr>
<td>
<form name="form1" method="post" action="">
<table width="40%">

<tr>
<td>
<% call DoDropDown("language_id","jb_Languages","language_id","Languages")
%>
</td>
<td>
<% call DoDropDown("Lang_Exp_ID","jb_Languages_Experience","Lang_Exp_ID","Language_Experience")
%>
</td>
<td><input type="submit" class="formindhold" name="Submit" value="Gem"> </td>
</tr>
</table>

<input type="hidden" name="cvid" value="<%=session("CV_ID")%>">

</form>
<% output= DoList("SELECT Languages as [Sprog],Language_Experience as [Erfaring], id , 'Remove'='Remove' FROM jb_View_Languages_selected WHERE cvid="& session("cv_id") & " order by Languages","Remove",url&"?del=t&id=","id","","10%")
if output<>"" then %>

<% response.write output

End if
%></td>
</tr>
</table>

Synes godt om

fennec Nybegynder

03. marts 2005 - 14:09 #14

Du skal finde DoDropDown funktionen.... Noget i denne stil:

function DoDropDown(var1, var2, var3, var3)
...
...
end function

Synes godt om

l_otto Nybegynder

03. marts 2005 - 14:10 #15

hvor tror du den ligger jeg har givet dig hele siden

Synes godt om

fennec Nybegynder

03. marts 2005 - 14:18 #16

Bruger du er program til at kode i???

Der mangler i hvert fald flere funktionen (DoList, DoDropDown, DoInsert), og dette program smider måske en include fil ind.

Synes godt om

l_otto Nybegynder

03. marts 2005 - 14:38 #17

jep der en en include men i den akn jeg heller ikke finde det jeg kigger lige igen

Synes godt om

l_otto Nybegynder

03. marts 2005 - 14:41 #18

sådan hvor skal jeg skrive det ?=

Sub DoDropDown(Name,tbl,ValField,TitleField)
Set R =conn.execute("Select * FROM " & tbl )
R.movefirst
response.write "<select name=""" & name & """ size=""1"" class=""formindhold"">"
Do While NOT R.EOF
response.write "<option value=""" & R(ValField) & """>" & R(TitleField) & "</option>"
R.movenext
Loop
response.write "</select>"
END SUB

Synes godt om

fennec Nybegynder

03. marts 2005 - 15:02 #19

Problemet er nok at du nok bruger denne sub mange steder, så vi må nok lave en ny:

Sub DoDropDownOrder(Name,tbl,ValField,TitleField, OrderBy)
Set R =conn.execute("Select * FROM " & tbl &" order by "& OrderBy)
R.movefirst
response.write "<select name=""" & name & """ size=""1" class=""formindhold"">"
Do While NOT R.EOF
response.write "<option value=""" & R(ValField) & """>" & R(TitleField) & "</option>"
R.movenext
Loop
response.write "</select>"
END SUB

<% call DoDropDown("language_id","jb_Languages","language_id","Languages")
skal så være:
<% call DoDropDownOrder("language_id","jb_Languages","language_id","Languages","SortFelt")

Så skriver du bare hvilken kolonne der skal sorteres efter i "SortFelt".

Synes godt om

l_otto Nybegynder

03. marts 2005 - 15:12 #20

puha ja nu fejler den helt vildt.. er der ikke en anden måde ?

Synes godt om

fennec Nybegynder

03. marts 2005 - 15:20 #21

Så skal du selv lave dropdown'en i stedet for at bruge funktionen.

i stedet for
<% call DoDropDown("language_id","jb_Languages","language_id","Languages") %>

skriver du:
<select name="language_id">
<% set R = conn.execute("select * from jb_Languages order by xxxx")
do while not r.eof
response.write "<option value='"& R("language_id") &"'>"& R("language_id") &"</option>"
R.MoveNext
loop
</select>

Synes godt om

l_otto Nybegynder

03. marts 2005 - 15:24 #22

jeg prøver tak

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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