? til mitbrugernavn
hvordan får jeg sat din kode ind i mindin kode
if request("test") <> "" then
fil_navn = "tips13_forslag"&request("test")&".txt"
sti = server.mappath(fil_navn)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(sti) Then
Set FILE_skriv = FSO.OpenTextFile(sti, 2)
FILE_skriv.WriteLine date() & " indgået forslag"
Set sti = nothing
set FSO = nothing
Response.Write fil_navn & " - Fil findes og er blevet overskrevet"
Else
'Udfør anden handling hvis filen ikke findes
FSO.CreateTextFile(sti)
Set FILE_skriv = FSO.OpenTextFile(sti, 2)
FILE_skriv.WriteLine date() & " indgået forslag"
Set sti = nothing
set FSO = nothing
Response.Write fil_navn & " - Fil findes ikke - er nu oprettet"
End If
end if
------------------------------------------------------------------
min kode
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/tutorials/asp/tekstfil.txt")
Set f = fso.OpenTextFile(filespec,2)
if kamp1<>"" then
if kamp2<>"" then
if kamp3<>"" then
if kamp4<>"" then
if kamp5<>"" then
if kamp6<>"" then
if kamp7<>"" then
if kamp8<>"" then
if kamp9<>"" then
if kamp10<>"" then
if kamp11<>"" then
if kamp12<>"" then
if kamp13<>"" then
radio butten her
f.WriteLine Request.Form("D1") & " - " & Request.Form("D2")
f.WriteLine("---------------------------------------")
f.WriteLine("Opstilling indsendt af")
f.WriteLine("---------------------------------------")
f.WriteLine Request.Form("text1")
f.WriteLine Request.Form("text2")
f.WriteLine Request.Form("text3")
f.WriteLine("---------------------------------------")
f.WriteLine(kamp1)
f.WriteLine(kamp2)
f.WriteLine(kamp3)
f.WriteLine("----------")
f.WriteLine(kamp4)
f.WriteLine(kamp5)
f.WriteLine(kamp6)
f.WriteLine("----------")
f.WriteLine(kamp7)
f.WriteLine(kamp8)
f.WriteLine(kamp9)
f.WriteLine("----------")
f.WriteLine(kamp10)
f.WriteLine(kamp11)
f.WriteLine(kamp12)
f.WriteLine(kamp13)
f.WriteLine("----------")
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
f.Close
Mvh.jens
