<% sql = "insert into " & Right(Left(Date,5),2) &""& Year(Date) & " (" &_ "DATO, " &_ "TID, " &_ "TEMP, " &_ "WIND, " &_ "PEAK, " &_ "DIRECTION, " &_ "RAIN, " &_ "RAINRATE) " &_ "VALUES ( " sql = sql & CheckString( Date,",") sql = sql & CheckString( Time,",") sql = sql & CheckString(Request("TEMP"),",") sql = sql & CheckString(Request("WIND"),",") sql = sql & CheckString(Request("PEAK"),",") sql = sql & CheckString(Request("DIR"),",") sql = sql & CheckString(Request("RAIN"),",") sql = sql & CheckString(Request("RAINRATE"),")") %> <%=sql%> <% If IsObject(Session("Henriksen_conn")) Then Set Conn = Session("Henriksen_conn") Else Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "Henriksen","","" Set Session("Henriksen_conn") = Conn End If Conn.Execute(sql) Conn.Close %>