erstatte \ (backslash) til / funkstion

function makeWork(fString)
                        fString = Replace(fString, CHR(92), CHR(47))
                        fString = Trim(fString)

                        FormatStr = fString
                    end function

ja det duer stadig ikke

Prøver da bare igen ;P
<%
Function makeWork(fString)
  FormatStr = Replace(Trim("" & fString), "/", "\")
End Function
%>

Bare husk du ikke kan bruge din var FormatStr andet end i din funktion, ellers skal du dim'e den uden for din funktion

ja jeg har erstattet det med:

Function makeWork(fString)
  fString = Replace(fString, CHR(92), CHR(47))
  fString = Trim(fString)

  makeWork = fString
end Function

hehe prøver du at udskrive makeWork oder was?

ja det gør jeg vel :)

Function makeWork(fString)
  fString = Replace(fString, CHR(92), CHR(47))
  fString = Trim(fString)

  makeWork = fString
end Function

makeWork(strVar)

Function makeWork(fString)
  fString = Replace(fString, CHR(92), CHR(47))
  fString = Trim(fString)

  Response.Write fString
end Function

makeWork(strVar)

nej undskyld! jeg troede du mente noget andet...

jeg har en streng som indeholder \ og det er dem som jeg gerne vil erstatte med /

så ville jeg lave en funktion der kunne fjerne dem.

eksempel:

strVariable = "e:\web\billeder\fil.jpg"

prøv at bruge sub istedet for function ;)

jeg kan bare ikke se hvorfor det ikke virker...

Kom med hele dit script så vi kan se i hvilket sammenhæng det ikke virker

ok, kommer ikke med det hele.. det fylder lige lovlig meget


If Not File Is Nothing Then


                    'objConn = Server.CreateObject("ADODB.Connection")
                    'objConn.Open

                    ' Build ODBC connection string
                    'Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db\upload.mdb")
                    'Connect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("db\upload.mdb") & ";"
                    Connect = "Driver={mySQL};SERVER=localhost;UID=admin;PWD=admin;DATABASE=hdejendomme;"


                    'uploaddate = FormatDateTime(Now, 2)
                    uploaddate = Datepart("yyyy",Now) &"-"& DatePart("m", Now) &"-"& DatePart("d", Now)

                    'uploadtime = FormatDateTime(Now, 3)
                    hours = Datepart("h",Now)
                    minutes = DatePart("n", Now)
                    seconds = DatePart("s", Now)

                    uploadtime = hours & ":" & minutes & ":" & seconds

                    uploaduser = "admin"

                    sagsnr = "5555-44"

                    Function makeWork(fString)
                        fString = Replace("" & fString, CHR(92), CHR(47))
                        fString = Trim(fString)

                        makeWork = fString
                    end Function


                    ' Build SQL INSERT statement
                    SQL = "INSERT INTO billeder(sagsnr, filename, filepath, filesize, width, height, descr, filetype, uploaddate, uploadtime, uploaduser) VALUES("
                    SQL = SQL & "'" & makeWork(sagsnr) & "', "
                    SQL = SQL & "'" & File.FileName & "', "
                    SQL = SQL & "'" & virtPath & "\" & File.FileName & "', "
                    SQL = SQL & "" & File.Size & ", "
                    SQL = SQL & "" & File.ImageWidth & ", "
                    SQL = SQL & "" & File.ImageHeight & ", "
                    SQL = SQL & "'" & descr & "', "
                    SQL = SQL & "'" & File.ImageType & "', "
                    SQL = SQL & "'" & uploaddate & "', "
                    SQL = SQL & "'" & uploadtime & "',"
                    SQL = SQL & "'" & uploaduser & "'"
                    SQL = SQL & ");"

                    'IF descr = "" THEN
                    '    Upload.DeleteFile File.Path
                    'END IF

                    ' Save to database
                    File.ToDatabase Connect, SQL
                    'objConn.Execute(SQL)


                    Set rs = Server.CreateObject("ADODB.RecordSet")

                    SQL = "SELECT last_insert_id() AS succesLog"
                    rs.open SQL, Connect

                    strIdentity = strIdentity & "Identity " & rs("succesLog") & " gemt<BR>"
                    rs.close
                End If


... og så har jeg brugt ca. 1 milliard timer på det, fordi jeg er så fat dum...

:)

jeg kalder funktionen i linie 3 i SQL sætningen

forhøjer lige point fra 30 til 100 i håb om at der er flere der svarer

Hvilken fejl får du nu?

Der er en syntaksfejl
/Upload_test/hd/uploadcode3.asp, line 82
function makeWork(fString)

jeg laver en For - Next loop og deri har jeg en masse IF sætninger inde i hinanden.

Og i én af disse IF sætninger kommer denne del af scriptet som skriver til DB

Er det det enste sted du kalder functionen?

Prøv lige at flytte function ud for for Sætnignerne evt helt ned i bunden af din fil:

</html>
<%
'ASP functioner her


%>

jep eneste sted

eagleeye du styrer!

det virkede da jeg flyttede dfunktionen uden for IF sætningerne

jeg kan bare ikke se hvorfor den skulle melde fejl der..

Det er altid en god ide at havde function ude af den kode man køre. Af en eller anden grund vil asp fortolkeren ikke havde functioner inde i FOR/DO loops, måske fordi man ikke er sikker på at komme gennem den kode..