kört fast igen :(

Dim Drive
If Request.QueryString("save")<>"" Then
saSQL="Select* From MarkDown Where MDownID="& Request.QueryString("save")
Set sa= Conn.Execute(saSQL)
paSQL="Select * From MarkPaDown Where DownID="& sa("MDownBel")
Set path=Conn.Execute(paSQL)

pat= showCat2(path("DownBel")) & path("DownUrl") &"\"& sa("MDownUrl") &"\"

Function showCat2(uid)
sSQL="SELECT * FROM MarkPaDown Where DownID='"& uid &"'"
Set tac=Conn.Execute(sSQL)
Do Until tac.EOF
Response.Write(showCat2(tac("DownBel")))&"\"&(tac("DownUrl") & "\")
tac.moveNext
Loop
tac.Close
Set tac=Nothing
End Function
path.Close
Set path=Nothing
sa.Close
Set sa=Nothing

'On Error Resume Next

Set objUpload = Server.CreateObject ("Dundas.Upload.2")

objUpload.UseUniqueNames = FALSE
objUpload.Save "C:\85743759834\wwwroot\virtual downloads\2b\markdownload\"& pat
Drive = "C:"
Response.Write Drive & objUpload.Save

förstår inte riktigt vad det skulle göra för någon skillnad!

Problemet ligger tydligen i att man inte kan lägga funktion i en sträng på det sättet, men jag vet inte hur jag ska lösa det

Det gör att det blir
C:\85743759834\wwwroot\virtual downloads\2b\markdownload\kat1\kat2\kat3\
eftersom variabeln Drive innehåller värdet "C:"
Det löser ju hela ditt Response.Write problem

nja, inte riktigt, eftersom problemet var att kat1 hamnade före C: