---

Ved at skrive denne linie i toppen af min browser add.asp?dir=knj skulle den
gerne opdatere min Database med KNJ

Det virker hos andre men ikke hos mig selv og heller ikke på mit web-hotel
,,, Hvorfor

her er ( add.asp )

<%

DirName = Request.QueryString("dir")


set conn=server.createobject("adodb.connection")

DSN="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSN=DSN & "DBQ=" & server.mappath("add.mdb")

conn.Open DSN

SQL = "SELECT * FROM ftp WHERE dirname = '" & DirName & "';"


Set RS = conn.Execute(SQL)


if RS.eof then

SQL = "INSERT INTO ftp (dirname) values ('" & DirName & "');"

Conn.Execute(sql)

else

' SQL = "UPDATE ftp SET dirname= dirname = '" & DirName & "' WHERE
dirname='" & DirName & "';"

' Conn.Execute(sql)

end if


Conn.close

Set Conn = Nothing

%>


Håber på hjælp

Kenneth

---

> Ved at skrive denne linie i toppen af min browser add.asp?dir=knj skulle
den
> gerne opdatere min Database med KNJ
>

Jeg ved ikke lige hvorfor det script ikke virkede, men her har du koden til
hvordan det kan gøres, jeg synes selv den er en hel del mere enkel:

<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("add.mdb")

conn.Execute("INSERT INTO ftp (dirname) VALUES ('" &
Request.QueryString("dir") & "')")

conn.Close
set conn = nothing
%>


Hvis du også vil have den til at tjekke om værdien findes i forvejen, så kan
du tilføje følgende:


<%
Set objRS = Server.CreateObject("ADODB.Recordset")
strQ = "SELECT * FROM accessrules WHERE (dir = '" &
Request.QueryString("dir") & "')"
strConn = "DBQ="& Server.MapPath("add.mdb") & ";Driver={Microsoft Access
Driver (*.mdb)}; PWD=" & ""
objRS.Open strQ, strConn

if not objRS.EOF then
check = "exist"
end if

objRS.Close
Set objRS = Nothing
%>

Du skal selvfølgelig lige tilføje følgende hvis du også vil have den til at
tjekke om værdien findes:
if check <> "exist" then
'koden der tilføjer din værdi til databasen
end if

Mvh. Christoffer Thygesen

homepage: http://cht.dk
e-mail: cht@cht.dk