|
Account Access
|
|
<%
function CopyFile(strFileSource, strFileDestination)
set fso = Server.CreateObject("Scripting.FileSystemObject")
if strError = "" then
Set f2 = fso.GetFile(strFileSource)
f2.Copy(strFileDestination)
Set f2 = nothing
end if
Set fso = nothing
end function
Dim LaunConn
Dim CookCartID
Dim objFSO
Set LaunConn=Server.CreateObject("ADODB.Connection")
LaunConn.Open "DSN=LaundryCarts;"
CookCartID = Session("CookCartID")
CustID = Session("CustID")
%>
|
|
|