Tillåtna format i ASPSmartUpload!

Vad jag fattar av det som står på deras sida så skall den bara tillåta dom filerna som du skriver där i och inte bara skriva ut vilka det är.

Hmm okej, för när jag testar att ladda upp ett .doc dokument så försöker den ändå ladda upp :/

Här har ni min kod:

strUser = FixSql(Session("user"))

SQL = "Select COUNT(bild_id) FROM bildarkiv Where strUser = '"& strUser &"'"
Set RS = Connect.Execute(SQL)

intAntal = RS(0)

IF NOT RS.EOF THEN
  Do Until RS.EOF   
     intAntal = intAntal + 1
  RS.MoveNext
  Loop
Else
   intAntal = 1
End IF

strFilename = strUser & intAntal
strUrl = "bilarkiv/" & strFilename
intUserid = Session("id")
strUser = Session("user")
intStatus = 0
StrBesk = "test"
strRubrik = "test"
strKat = "test"

'  Upload
'  ******

	Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
	mySmartUpload.Upload()

    MySmartUpLoad.AllowedFilesList = "gif,jpg,jpeg"
    Response.Write("Files allowed=" & MySmartUpLoad.AllowedFilesList & "<br>")

		For Each file In mySmartUpload.Files
			If NOT file.IsMissing Then
			file.SaveAs(Server.MapPath("portfolj/Thomsson.jpg"))
			End If
		Next

	Set mySmartUpload = Nothing

'  Sparar i databasen
'  *******
	sql = "INSERT INTO bildarkiv(strRubrik, strUser, intUserid, strUrl, intStatus, strBesk, strKat) VALUES('"& strRubrik &"', '"& strUser &"', "& intUserid &", '"& strUrl &"', "& intStatus &", '"& strBesk &"', '"& strKat &"')"
    response.write sql
    Connect.Execute(sql),,128

Sen nästa problem, ni ser denna rad:

file.SaveAs(Server.MapPath("portfolj/Thomsson.jpg"))

Där skulle jag vilja ha "strUrl" och filformatet på filen, så hur får jag fram filformatet?

HEJ!

Thompa__85 skrev:

file.SaveAs(Server.MapPath("portfolj/Thomsson.jpg"))

Där skulle jag vilja ha "strUrl" och filformatet på filen, så hur får jag fram filformatet?

Hugg isär, stoppa in en variabel på vanligt sätt, kan inte bli enklare.

file.SaveAs(Server.MapPath(" & var & "portfolj/Thomsson.jpg"))

För att testa att sökvägen blir rätt på enklaste sätt skriver du ut strängen istället för att göra file.SaveAs.
När sökvägen är rätt, skriver du dit file.SaveAs igen, och testar på riktigt.!

Varför vill du få ut filformatet?
Ska alla filer heta "Thomsson" gif/jpg/jpeg???

I vilket fall finns säkert file.FileExtension eller liknande, läs manualen.