file.exist - hvordan?

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

If (fs.FileExists("c:\winnt\cursors\3dgarro.cur"))=true Then
      Response.Write("File c:\winnt\cursors\3dgarro.cur exists.")
Else
      Response.Write("File c:\winnt\cursors\3dgarro.cur does not exist.")
End If

set fs=nothing
%>

//>Rune

Altså:

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

If (fs.FileExists(Server.MapPath ("/database1.mdb")))=true Then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/database1.mdb")
Conn.Open DSN
Else
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/database2.mdb")
Conn.Open DSN
End If

set fs=nothing
%>

//>Rune

manner altså hvor er du hurtig og dygtig :-)

takker mange gange

:)

Selv tak.

//>Rune