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
%>