In the Media Videos <% Dim rsM, SQLM Set rsM = Server.CreateObject("ADODB.Recordset") SQLM = "SELECT * FROM media where MediaType=2 Order by MediaDate Desc" rsM.Open CheckSQL(SQLM), Conn, 1, 3 Do While Not rsM.EOF%>  » " class="listind"><%=rsM("Title")%> <%rsM.MoveNext Loop rsM.Close Set rsM = Nothing %>       In the Media Click on the icons below to read media articles about SafeSpace. Click on the links in the left menu to watch videos about SafeSpace. <% If request("VideoID") = "" Then '================ Connection to Media Items Dim rs1, SQL1 Set rs1 = Server.CreateObject("ADODB.Recordset") SQL1 = "SELECT * From media Where MediaType <> 2 ORDER BY MediaDate Desc" rs1.Open SQL1, Conn, 1, 3 %> <% If rs1.EOF = True Then%> <%Else%> <% count = 1 Do While Not rs1.EOF '================ Display rows If iCount = 1 Then rowclass= "tablealtrow" iCount = 2 else rowclass = "tablerow" iCount = 1 end if '================ Display content %> <% rs1.MoveNext Count=Count + 1 Loop rs1.close %> <%End If%> There are no Media items at this time. <%=rs1("MediaDate")%> <%=rs1("Title")%>  <%If rs1("PDF") <> "" Then%> " target="_blank"> <%ElseIf rs1("Link") <> "" Then%> " target="_blank"> <%End If%> <%If rs1("Description") <> "" Then%> <%=rs1("Description")%> <%End If%> <%Else Dim rsV, SQLV Set rsV = Server.CreateObject("ADODB.Recordset") SQLV = "SELECT * From media Where ID = " & CheckSQL(request("VideoID")) rsV.Open SQLV, Conn, 1, 3 If Not rsV.EOF Then %> <%=rsV("MediaDate")%> - <%=rsV("Title")%> <%=rsV("Description")%> <%Else response.Redirect("media.asp") End If%> <%End If%> Call 1-800-500-1119 if you need domestic violence help, whether you need "SafeSpace" housing or just someone to talk to. Administrative Office: 612 SE Dixie Highway | Stuart, FL 34994 | 772-223-2399 Internet Security | Site Administration