jboy_87Medlem sedan aug. 20011 099 inlägg fattar inte varför omröstningen inte fungerar??
Jag har rätt sökväg till txt filerna men när jag klickar och vill rösta får jag
Körningsfel i Microsoft VBScript fel '800a0035'
Det går inte att hitta filen.
/rostat.asp, rad 11
<%
u_input=request.querystring("rosta") %>
<% set fso = createobject("scripting.filesystemobject")
if session("voted_before") = "" then
session("voted_before") = "Yes"
g_selected="rost"& u_input &".txt"
[b]set act = fso.opentextfile(server.mappath(g_selected))[/b]
counter = clng(act.readline)
counter = counter + 1
act.close
Set act = fso.CreateTextFile(server.mappath(g_selected), true)
act.WriteLine(counter)
act.Close
end if
%>
<%
g_selected="database/rosta.txt"
set act = fso.opentextfile(server.mappath(g_selected))
counter_a = clng(act.readline)
%>
<%
g_selected="database/rostb.txt"
set act = fso.opentextfile(server.mappath(g_selected))
counter_b = clng(act.readline)
%>
<% total=counter_a+counter_b %>
jboy_87Medlem sedan aug. 20011 099 inlägg det funkar om jag lägger in txt filerna i rooten men inte i mappen database??
GimboMedlem sedan dec. 20001 626 inlägg du har ju denna kodsnutt:
Set act = fso.CreateTextFile(server.mappath(g_selected), true)
vilket innebär att den skapar en ny textil, så ta bort samtliga textfiler och peka sökvägen dit du vill, dvs till databas... och sedan låter du textfilen skapas automatiskt istället för att lägga till den manuellt...
det finns ju inga fel på själva koden...
jboy_87Medlem sedan aug. 20011 099 inlägg ja jag har ju säkvägen här!!
g_selected="database/rostb.txt"
jboy_87Medlem sedan aug. 20011 099 inlägg missade det här!!
g_selected="**database/**rost"& u_input &".txt"
GimboMedlem sedan dec. 20001 626 inlägg Sökvägen har du där, men i själva mappen database ska inte textfilen finnas, utan du ska låta programmet skapa den automatiskt
jboy_87Medlem sedan aug. 20011 099 inlägg vad menar du??
nu funkar den hur bra som helst!!