Eksekvering af Sql-streng i tekstarea

en submit knap var måske lige sagen.
Jeg har en komplet færdig ting, som jeg lige lægger op til dig om 5 min.

Submit knappen er der sørget for :)

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Untitled</title>
</head>

<body>
<form>
<%

\'en eller anden connection her...

SqlQ = \"Select * From Tabel\"
Set data = connection.execute(SqlQ)
if not data.eof then
do while not data.eof

tempString = tempString & data(\"tabelnavn\")

data.movenext
loop

end if

data.Close
Set data=nothing

connection.Close
Set connection=nothing
%>

<textarea>
<%=tempString%>
</textarea>

</form>


</body>
</html>



/ortrak

Her kommer den.
---------------------------------------------
<!--#include file=\"../adovbs.inc\"-->
<HTML>
<HEAD>
<TITLE>SQL Query Builder</TITLE>
</HEAD>
<body bgcolor=\"#d6d5b6\" STYLE=\"COLOR:
    black; FONT-FAMILY:
    Arial; FONT-SIZE:
    x-small\">
    <P ALIGN=\"left\">&nbsp;
    <br>
    <FONT size=4 style=\"BACKGROUND-COLOR: #d6d5b6\"></FONT><FONT size=4
style=\"BACKGROUND-COLOR: #d6d5b6\">LSN&nbsp;<br>WEB SQL BUILDER \'99
</FONT></p>
<%
On Error Resume Next
If Request.ServerVariables(\"Content_length\")>0 Then
  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../db/myDatabase.mdb\") & \";DriverId=25;FIL=MS Access;ReadOnly=0\"
  Set rsQuery = Conn.Execute(Request.Form(\"sqlars\"))

  If Not IsObject(rsQuery) Then
    Response.Write \"Der skete en fejl ved udf&oslash;relse af f&oslash;lgende SQL s&aelig;tning<P>\"
    If Err.Number > 0 Then
    Response.Write Err.Description
    Else
      For Each dbError In Conn.Errors
        Response.Write dbError.Description & \"<BR>\"
      Next
    End If
    Response.End
  End If
  If rsQuery.EOF Then
    Response.Write \"Foresp&oslash;rgslen fandt ingen records\"
  Else
    Response.Write \"<TABLE BORDER=1 WIDTH=1124 CELLSPACING=2 CELLPADDING=2 BORDERCOLOR=#000000><TR>\"
    For i = 0 to rsQuery.Fields.Count - 1
      Response.Write \"<TH><font FACE=\'Verdana,arial\' SIZE=\'-2\' COLOR=\'#000000\'>\" & rsQuery(i).Name & \"</font></TH>\"
    Next
    Response.Write \"</TR>\"

    While Not rsQuery.EOF
      Response.Write \"<TR>\"
      For i = 0 to rsQuery.Fields.Count - 1
        Response.Write \"<TD><font FACE=\'Verdana,arial\' SIZE=\'-2\' COLOR=\'#000000\'>\" & rsQuery(i) & \"&nbsp;</TD>\"
      Next
      Response.Write \"</TR></font>\"
      rsQuery.MoveNext
    Wend
    Response.Write \"</TABLE>\" 
  End If
Else
%>

<FORM METHOD=POST ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\">
SQL S&aelig;tning der &oslash;nskes udf&oslash;rt mod: <B>MAIN DataBase </B>:<BR>
<TEXTAREA STYLE=\"COLOR:
    black; FONT-FAMILY:
    Arial; FONT-SIZE:
    x-small\" NAME=\"sqlars\" cols=80 rows=15>SELECT * from mytbl where konnl is null
order by kategori,producent,</TEXTAREA>&nbsp;<P>
<INPUT STYLE=\"COLOR:
    black; FONT-FAMILY:
    Arial; FONT-SIZE:
    x-small\" TYPE=SUBMIT NAME=\"Submit!\">
</FORM>
<%
End If
%>
</BODY>
</HTML>

Er det ikke bare det her du ønsker?

<%
response.write(\"<textarea> \")
SqlQ = \"Select * From Tabel\"
Set data = connection.execute(SqlQ)
do while not data.eof

response.write ( data(\"tabelnavn\") )

data.movenext
loop
response.write(\"</textarea>\")

%>

uha, jeg håber det var hvad du mente.
Ellers må du have ment hvordan du fylder en textarea med en sql sætning, og den har ortrak 

PNP - mener du selv at dette script eksekverer en sql sætning i et textarea????

ortrak - det er desværre ikke en løsningen for mig. Det jeg er ude efter er en møde hvor selve sql sætningen står i selve textareaet og bliver eksekveret indenfor textareaet....

Jeg håber jeg har forklaret det tydeligt nok :)

Stigc - jo det er nemlig det jeg er ude efter, og jeg har også lavet det ´sådan ,jeg kan bare ikke få det skidt til at virke.... og siges skal det at der ikke er noget i vejen med min sql streng

jamen hvorfor ikke bare lægge resultatet i en ny textarea.
Lidt ændring i mit indlæg, så er den færdig ;)

Her skal der ændres:
-------------------------------------------------

Else
    Response.Write \"<TABLE BORDER=1 WIDTH=1124 CELLSPACING=2 CELLPADDING=2 BORDERCOLOR=#000000><TR>\"
    For i = 0 to rsQuery.Fields.Count - 1
      Response.Write \"<TH><font FACE=\'Verdana,arial\' SIZE=\'-2\' COLOR=\'#000000\'>\" & rsQuery(i).Name & \"</font></TH>\"
    Next
    Response.Write \"</TR>\"

    While Not rsQuery.EOF
      Response.Write \"<TR>\"
      For i = 0 to rsQuery.Fields.Count - 1
        Response.Write \"<TD><font FACE=\'Verdana,arial\' SIZE=\'-2\' COLOR=\'#000000\'>\" & rsQuery(i) & \"&nbsp;</TD>\"
      Next
      Response.Write \"</TR></font>\"
      rsQuery.MoveNext
    Wend
    Response.Write \"</TABLE>\" 
  End If
Else
%>

lav en form og textarea, og fyld ud.

thrakrath:

prøv at hør.
Man eksekverer ikke sql-strengen inden i text-selve areaet. Om man placerer asp-koden før eller inden i selve text-areaet har ikke noget at gøre med sagen. Pointen er, at den database-generede html-kode bliver udskrevet til klienten imellem textarea-formateringen. Og  om man gør det vha. en variabel som har appendet text fra hver record i databasen, eller om man bruger response-objektet til at skrive en record ad gangen til klienten , er bedøvende.

Spørgsmålet er hvor du har lavet en fejl i din database-opsætning.

Kan du ikke skrive din connection-kode...


/ortrak

Desuden er din sql-streng *ikke* forkert, med mindre du har stavet dit tabel-navn forkert.

/ortrak

Ja - der var en fejl i min Sql streng - pinligt.. det må i undskylde... jeg har splittet pointene op mellem jer.

alt forladt

/ortrak