<%@ Language=VBScript%> Events
<% Set DbObj = Server.CreateObject("ADODB.CONNECTION") DbObj.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("eventstext/Event.mdb") set rsEvent = DbObj.Execute("Select * FROM Events Where Not EventDel=yes") do while not rsEvent.EOF EventDate = rsEvent("EventDate") EventEndDate = rsEvent("EventEndDate") EventDesc = rsEvent("EventDesc") EventID = rsEvent("EventID") EventDesc = replace(EventDesc,vbcrlf,"
") sA = split(FormatDateTime(EventDate,1),",") EventDate = sA(1) & sA(2) if Not len(EventEndDate) THEN sB = split(FormatDateTime(EventEndDate,1),",") sC = split(trim(sA(1))," ") sD = split(trim(sB(1))," ") EventEndDate= sB(1) & sB(2) if (sC(0) = sD(0)) THEN EventDate = sC(0) & " " & sC(1)& "-" & sD(1) & sB(2) else EventDate = EventDate &"
to
"& EventEndDate END IF END IF %> <% rsEvent.MoveNext Loop %>


 

AVM Technologies participates in a number of industry trade shows throughout the year. Our participation allows us to travel the country to meet with you locally and also our existing base of clients.

See us in a city near you? Stop by our booth and say hello:



Event Date     

Event Description

<%=EventDate%>
<%=EventDesc%>