Findes filen

<%
response.buffer=true
Response.Expires = 0
Dim vPath, pPaht, cPath,tpath,fileFolderPath
Response.Expires = 0
set fbase = Server.CreateObject("Chili.Upload.1")
dim stringvar
stringvar = fbase.SourceFileName
dim shortvar
shortvar = INSTR(STRINGVAR, "\")
dim length
do while shortvar > 0
length = len(stringvar)
shortvar = INSTR(STRINGVAR, "\")
stringvar = right(stringvar, length - shortvar)
loop

fbase.SizeLimit = 8000000
server.scriptTimeOut = 8000000

cPath = Server.MapPath(".")
fileFolderPath =cpath&"/imahe/"&stringvar
fbase.SaveToFile(fileFolderpath)

Session("filtype") = stringvar
%>
'Done writing <%=fbase.FileSize%> bytes from user file <%=fbase.SourceFileName%> (of type <%=fbase.SourceFileExtension%>)

Jeg har noget upload igennem chili asp og vil gerne vide hvordan jeg tjekker om filen findes (den laver fejl hvis den findes) og når man gennemser skal man kun kunne vælg *.gif og *.jpg