Huske variabel (string) med function

Brug en Session variabel:

Session("file") = "hejsa"

Den følge så brugeren og du kan hente værdien:
Response.write Session("file")

Hovsa:

Hvis det er på samme side..........
Hvorfor så ikke bare bruge en almindelig variabel

Prøver lige:-)

//Beach

Det er på samme side! Og er det ikke allerede en variabel jeg har lavet?
Kan du læse af ovenstående at jeg er ret grøn i ASP:-)))

//Beach

Nu er jeg med (tror jeg)

For at få variablen med ud af functionen skal du kalde functionen det samme som den variabel der skal trækkes ud.

Function file()
Dim fso, f, filespec, file
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.MapPath(Request.Querystring("tlf") & ".txt")
If (fso.FileExists(filespec)) Then
file="ja"
Else
file="nej"
End If
End Function
%>

<%
Response.Write file() 'Jeg kan ikke huske om der skal paranteser på - prøv med først
%>

Det kan den sgu ikke li:-)
Har lavet følgende:

Function file()
Dim fso, f, filespec, file
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.MapPath(Request.Querystring("tlf") & ".txt")
If (fso.FileExists(filespec)) Then
'Response.Write "filen findes "
file="ja"
Else
'Response.Write "filen findes ikke "
file="nej"
End If
'Response.Write file
End Function
%>

<%
Response.Write file()
'testfile
%>

Har prøvet både med og uden paranteser

//Beach

hvad siger den ??

Hvad siger den til det her ?

Function file()
  file="ja"
End Function
%>

<%
Response.Write file()
'testfile
%>

Den virkede i hvert fald her hos mig. Men prøv så:

Function file()
  Dim fso, f, filespec, file
  Set fso = CreateObject("Scripting.FileSystemObject")
  file = Server.MapPath(Request.Querystring("tlf") & ".txt")
End Function
%>

<%
Response.Write file()
'testfile
%>



Hvad udskriver den ??

ja %> filen findes ja

Det er hvad jeg får ud af:
<%
Function file()
  file="ja"
End Function
%>

<%
Response.Write file()
%>

og den jeg postede:
18:21:10

Hvad skriver den ?

Med denne kode:
Function file()
  Dim fso, f, filespec, file
  Set fso = CreateObject("Scripting.FileSystemObject")
  file = Server.MapPath(Request.Querystring("tlf") & ".txt")
End Function
%>

<%
Response.Write file()
%>

Får jeg en HTTP 500 - Intern serverfejl

så prøv at skriv sti/filnavn direkte:

Function file()
  Dim fso, f, filespec, file
  Set fso = CreateObject("Scripting.FileSystemObject")
  file = Server.MapPath("c:\minfil.txt")
End Function
%>

<%
Response.Write file()
%>

hmm det vil være en god idé at navngive variablen file til eks. strFile eftersom file-ordet kan være reserveret af systemet...

En anden god ting er af dim´e variablen udenfor functionen eftersom den jo skal bruges globalt på siden

ps. der skal ikke () = pranteser efter en variabel.. :-)

Dim strFile
strFile = "test"

response.write strFile

Samme fejl med:

Function file()
  Dim fso, f, filespec, file
  Set fso = CreateObject("Scripting.FileSystemObject")
  file = Server.MapPath("d:\home\freestyledk\www\kabler\") & Request.Querystring("tlf") & ".txt")
End Function
%>

<%
Response.Write file()
%>

Det er sgu da smystisk:-(

//Beach

>>>horsmark
Prøver lige...

//Beach

Med følgende kode så virker det faktisk som det skal:
<% Dim strfile %>
<%
Function checkfile()
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.MapPath(Request.Querystring("tlf") & ".txt")
If (fso.FileExists(filespec)) Then
Response.Write "filen findes "
strfile="ja"
Else
Response.Write "filen findes ikke "
strfile="nej"
End If
End Function
%>

<%
checkfile
Response.Write strfile
%>

Så et svar fra horsmark vil give lidt point:-)
//Beach

Point senere, maden er sat på bordet. Takker for hjælpen til jeg begge *S*

//Beach

>>>horsmark
Vil du ikke have nogle point?

//Beach

Det lader ikke til at horsmark vi have point, så jeg giver dig lidt for din iver efter at prøve selv om det ikke virkede og tager resten tilbage til mig selv. Er det OK?
Den oprintlige var på 15p som blev forhøjet til 25p pga. horsmark og at jeg gerne ville smide 10p af til dig for et par gode forsøg. Så du får de 10p:-)

//Beach