Klaus Egebjerg" <klausegebjerg@get2net.dk> skrev:
> Hej
>
> Jeg sidder og forsøger at lave en side, hvor et script henter et notat
felt
> ind i et textarea, dog uden held.
> Den opretter godt nok et Textarea med der kommer ikke noget i, selvom der
> ligger noget i det notatfelt.
>
> Nogle gode ideér ?
>
> Jeg anvender Access 2000
>
> Mit script er således ud:
>
> Sub Out(strOut)
> Response.Write strOut
> End Sub
>
> Dim Conn
> function OpenConn (DBName)
>
> Set Conn = Server.CreateObject("ADODB.Connection")
> ODBCpath = left(request.ServerVariables("PATH_TRANSLATED"),
> instrrev(request.ServerVariables("PATH_TRANSLATED"), "\"))
> Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath &
> ";Driver={Microsoft Access Driver (*.mdb)}"
>
> End function
>
> skema()
> function skema()
> OpenConn("opskrifter.mdb")
>
> Sogestreng = "where Bryygermail ='" & strMail & "'"
> Set rs = Conn.Execute("SELECT Kommentar, Stjerner FROM kommentar " &
> (SogeStreng) & " order by Bryygermail")
>
> %>
> <table>
> <form ACTION="<%= Request.ServerVariables ("SCRIPT_NAME") %>"
METHOD="POST"
> id="form1" name="form1">
> <%
>
> Out "<tr><td>Stjerner:<td> <input TYPE=""TEXT"" Size=""40"" NAME=""Navn""
> VALUE=""" & rs("Stjerner") & """>"
>
>
> Out "<tr><td>Din kommentar: (Max. 600 tegn)<tr><td><Textarea
> NAME=""Kommentar"" Cols=""40"" Rows=""5"" VALUE=""" & rs("Kommentar") &
> """>"
> %>
> </textarea>
>
> </table>
> </form>
> <%
> End function
>
>
> Conn.Close
> %>
Hej!
Prøv med:
<Textarea NAME="Kommentar" Cols="40"
Rows="5"><%=rs("Kommentar")%></textarea>
--
Med venlig hilsen
Thomas Sinkbæk
http://www.sinkbaek.com/