Finns det ngt enklare sätt att skriva detta?

8 svar · 156 visningar · startad av soffan76 20 juni 2001

soffan76Medlem sedan maj 2001684 inlägg

Frågan20 juni 2001 13:57#1

Hej alla!
Jag undrar om någon vet ett enklare sätt att skriva detta? Säkert finns det, detta känns lite klumpigt...
Mvh Sofia

<% 
SQL = "SELECT * FROM PA_Help Where ID_Num =1"
Set RS = Conn.Execute(SQL) 
%>

<% 
SQL2 = "SELECT * FROM PA_Help Where ID_Num =2"
Set RS2 = Conn.Execute(SQL2) 
%>

<% 
SQL3 = "SELECT * FROM PA_Help Where ID_Num =3"
Set RS3 = Conn.Execute(SQL3) 
%>

<% 
SQL4 = "SELECT * FROM PA_Help Where ID_Num =4"
Set RS4 = Conn.Execute(SQL4) 
%>

<% 
SQL5 = "SELECT * FROM PA_Help Where ID_Num =5"
Set RS5 = Conn.Execute(SQL5) 
%>

<% 
SQL6 = "SELECT * FROM PA_Help Where ID_Num =6"
Set RS6 = Conn.Execute(SQL6) 
%>

<% 
SQL7 = "SELECT * FROM PA_Help Where ID_Num =7"
Set RS7 = Conn.Execute(SQL7) 
%>

<% 
SQL8 = "SELECT * FROM PA_Help Where ID_Num =8"
Set RS8 = Conn.Execute(SQL8) 
%>

<% 
SQL9 = "SELECT * FROM PA_Help Where ID_Num =9"
Set RS9 = Conn.Execute(SQL9) 
%>

<% 
SQL10 = "SELECT * FROM PA_Help Where ID_Num =10"
Set RS10 = Conn.Execute(SQL10) 
%>

<table>

<tr>
<td valign="top">Hjälptext 1:</td>
<td><textarea cols=25 rows=4 name="h1"><%= RS("Helptext") %></textarea></td>
</tr>

<tr>
<td valign="top">Hjälptext 2:</td>
<td><textarea cols=25 rows=4 name="h2"><%= RS2("Helptext") %></textarea></td>
</tr>

<tr>
<td valign="top">Hjälptext 3:</td>
<td><textarea cols=25 rows=4 name="h3"><%= RS3("Helptext") %></textarea></td>
</tr>

<tr>
<td valign="top">Hjälptext 4:</td>
<td><textarea cols=25 rows=4 name="h4"><%= RS4("Helptext") %></textarea></td>
</tr>

<tr>
<td valign="top">Hjälptext 5:</td>
<td><textarea cols=25 rows=4 name="h5"><%= RS5("Helptext") %></textarea></td>
</tr>

<tr>
<td valign="top">Hjälptext 6:</td>
<td><textarea cols=25 rows=4 name="h6"><%= RS6("Helptext") %></textarea></td>
</tr>

<tr>
<td valign="top">Hjälptext 7:</td>
<td><textarea cols=25 rows=4 name="h7"><%= RS7("Helptext") %></textarea></td>
</tr>

<tr>
<td valign="top">Hjälptext 8:</td>
<td><textarea cols=25 rows=4 name="h8"><%= RS8("Helptext") %></textarea></td>
</tr>

<tr>
<td valign="top">Hjälptext 9:</td>
<td><textarea cols=25 rows=4 name="h9"><%= RS9("Helptext") %></textarea></td>
</tr>

<tr>
<td valign="top">Hjälptext 10:</td>
<td><textarea cols=25 rows=4 name="h10"><%= RS10("Helptext") %></textarea></td>
</tr>

------------------
Sofia

[Redigerat av soffan76 den 20 jun 2001]

jepsOMedlem sedan mars 2001484 inlägg

20 juni 2001 14:16#2

Då ska vi se...

response.write "<table>" & vbCrLf
for i=1 to 10
SQL = "SELECT * FROM PA_Help WHERE ID_Num = " & i
Set RS = Conn.Execute(SQL)
response.write "<tr>" & vbCrLf
response.write "<td valign=""top"">Hjälptext " & i & ":</td>
<td><textarea cols=25 rows=4 name=""h" & i & """><%= RS("Helptext") %></textarea></td>" & vbCrLf
response.write "</tr>" & vbCrLf
RS.Close
next
response.write "</table>" & vbCrLf
Conn.Close

Nåt sånt. & vbCrLf lägger jag till för att snygga till källkoden.

Varför måste du förresten göra på detta sätt? Ser lite otympligt ut. Syfte med sidan? Vilka tabeller har du?

------------------
/ jeps0

[Redigerat av jepsO den 20 jun 2001]

NickemannenMedlem sedan aug. 20003 575 inlägg

20 juni 2001 14:19#3

<% 
SQL = "SELECT * FROM PA_Help Where Order By id_num"
Set RS = Conn.Execute(SQL)
iCount = 0

sOutput = "<Table>"

Do Until Rs.Eof or iCount => 10
iCount = iCount + 1
sOutput = sOutput&"<tr><td valign='top'>Hjälptext "&iCount&":</td>"&_
"<td><textarea cols='25' rows='4' name='h"&iCount&"'"_
RS("Helptext")&"</textarea></td></tr>"

Rs.MoveNext
Loop
sOutput = sOutput&"</Table>"
Set Rs = Nothing
Conn.Close
%>

du kanske menar något annat?
denna sparar iallafall lite mer server kraft än den du och han ovanför skrev

[Redigerat av Nickemannen den 20 jun 2001]

soffan76Medlem sedan maj 2001684 inlägg

20 juni 2001 14:23#4

Jag har en tabell som ser ut följande:

Helptext ID_Num
helptext1 1
helptext2 2
helptext3 3
helptext4 4

Man ska kunna hämta olika hjälptexter på sidan beroende på vilken del man befinner sig i. Det är ett formulärsystem där olika sorters ifyllnadshjälp kan behövas.

------------------
Sofia

[Redigerat av soffan76 den 20 jun 2001]

ToonsterMedlem sedan feb. 20001 590 inlägg

20 juni 2001 15:43#5

Vägra loopa databasen!!!

<% 
SQL = "SELECT * FROM PA_Help Where ID_Num > 0 AND ID_Num < 10"
Set RS = Conn.Execute(SQL) 
%>

Ett mycket undligt system du verkar ha för att hämta text från en databas.

Fast det verkar som du bara ska ha en hjälptext åt gången eller?

------------------
WRITE_PORT_ULONG(devExt->Mymessage,SMART_WRITE_ACK);

[Redigerat av Toonster den 20 jun 2001]

soffan76Medlem sedan maj 2001684 inlägg

21 juni 2001 06:28#6

Hej!

Jag har nu testat Nickemannens kod fast det kruxar lite. Varför får jag felmeddelande vid RS("Helptext")?

Expected end of statement 

/Sweco/Projektanmälan/uppdatera_helptexter.asp, line 25 

RS("Helptext")&"</textarea></td></tr>"

------------------
Sofia

erkaMedlem sedan dec. 19996 522 inlägg

21 juni 2001 06:57#7

Toonster, hur loopar man det man vill ha ut då från databasen på bästa sätt ?

------------------
1 Man, 1 Million dead, The odds are just about even - Ash

soffan76Medlem sedan maj 2001684 inlägg

21 juni 2001 14:24#8

Det undrar jag också....

------------------
Sofia

PatrikBMedlem sedan mars 20002 836 inlägg

21 juni 2001 17:01#9

Antar att du på något vis skickar in ett värde som bestämmer vilken text som ska visas.
Då skulle jag nog byggt tabellen på ngt liknande vis:

[HelptextRubrik] [Helptext] [ID_Num]

och sedan följer koden för att plocka fram rätt text:

<% 
......
intHelpID = Request.QueryString("helpID")
SQL = "SELECT * FROM PA_Help Where ID_Num = " & intHelpID
Set RS = Conn.Execute(SQL) 
%>
<table>
<tr>
<td valign="top"><% =RS("HelptextRubrik")%></td>
<td><textarea cols=25 rows=4 name="h1"><%= RS("Helptext") %></textarea></td>
</tr>
</TABLE>
.........

cya,
PatrikB

------------------
*Det tar sig sa han som hade eld i håret*