se ændringer

nogen ideer `?

Det er lidt svært at sige, uden at se kildekoden.
Eller i det mindste at kunne logge ind. ;-)

øhhh du kan da sagtens logge ind..

kan evt sende dig siden `?

Nope - den kommer med Login, og nogle initialer, men man kommer ikke videre (sikkert fordi jeg ikke har password)

Du må gerne maile. mortrr@hotmail.com

"brug koden ac1"
sendt

Byt om på den midterste del.

Du har fået sat UPDATE ind efter
strSQL = "select * from att_1p"

set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("amsterdam.mdb")

If request.form("B3") <> "" Then
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("amsterdam.mdb")
strSQL = "UPDATE    att_1p set tekst='"& Request.Form("S1")&"', dato=now()"
response.write ("Opdateret")
Conn.Execute(strSQL)
end if

strSQL = "select * from att_1p"
Set rs = Conn.Execute(strSQL)

Hov - så ikke at det var to connections:


set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("amsterdam.mdb")

If request.form("B3") <> "" Then
strSQL = "UPDATE    att_1p set tekst='"& Request.Form("S1")&"', dato=now()"
Conn.Execute(strSQL)
response.write ("Opdateret")
end if

strSQL = "select * from att_1p"
Set rs = Conn.Execute(strSQL)

Tak