/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Virker hos andre men ikke hos mig selv ???
Fra : Kenneth N. Jørgensen


Dato : 27-03-01 09:29

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




 
 
Thygesen (28-03-2001)
Kommentar
Fra : Thygesen


Dato : 28-03-01 19:00

> 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




Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408878
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste