Her er scriptet så. Skulle du have problemer, så skriv lige igen (er dog første tilbage søndag aften/ mandag)
Mvh
Kim
<%
Response.Buffer = true
Sub opretDB ()
Dim fs
Set fs = CreateObject(\"Scripting.FileSystemObject\")
fs.CopyFile \"c:inetpub\\wwwroot\\testDb.mdb\", \"c:inetpub\\wwwroot\\database\\test.mdb\"
End sub
Response.Write \"<HTML>\"
Response.Write \"<HEAD>\"
Response.Write \"<TITLE>
www.lorx.dk</TITLE>\"Response.Write \"</HEAD>\"
Response.Write \"<BODY>\"
IF Request.Querystring(\"what\") = \"\" THEN
Response.Write \"<FORM ACTION=\"\"fil_test.asp?what=create\"\" METHOD=\"\"post\"\">\"
Response.Write \"<INPUT TYPE=\"\"submit\"\" NAME=\"\"ok\"\" VALUE=\"\"Opret database\"\">\"
Response.Write \"</FORM>\"
ELSE
Call opretDB()
Response.Write \"Database oprettet\"
END IF
Response.Write \"</BODY>\"
Response.Write \"</HTML>\"
%>