<% if session("allow")= false then Response.Redirect "bc_login.asp?file_name=add_result.asp" end if %> <% Response.CharSet="windows-1255" codepage=1255 'if strDBNTUserName = "" then 'doNotLoggedInForm 'end if Nmember=session("user") theRunner = request("l_runner") if theRunner = "" then theRunner = Nmember end if dim DAY_ZERO DAY_ZERO = "Dec 30 1899 " theRace = request("race_name") theAction = request("submit1") theType = request("l_type") theYear = request("l_year") theResult = request("l_hour") & ":" & request("l_min") & ":" & request("l_sec") theDate = request("l_month") & "/" & request("l_day") & "/" & request("l_year") if theRace <> "" and theResult <> "0:0:0" and theAction = "הוסף" then %><% MySQL = "INSERT INTO result (mresult_name,mresult_time,race_id,mresult_status,mresult_race,mresult_date,mresult_type) VALUES ('" & theRunner & "', Convert(datetime, '" & DAY_ZERO & theResult & "', 8), '99999', 1, '" & theRace & "', '" & theDate & "', '" & theType & "')" set rs = SOLELIM_conn.Execute(MySQL) swOK=true %><% end if %>
חזרה הוספת תוצאת מרוץ הדפס
<% mwpThemeBlock_open() Response.Write "שלום " & theRunner %>

<%end if%>

<%if Nmember="יורם איינר" then%> <%end if%>
<% if theRace <> "ORACE" then %> <%else%> <%end if%>
<%'############## END CONTENT ##############%> <%mwpThemeBlock_close()%>