<% If Request("id") = "" And Request("ras") <> "" Then Set rstmp = Server.CreateObject("ADODB.Recordset") rstmp.Open "SELECT Id FROM Rassen WHERE ras = '" & Request("ras") & "'", connection, 1, 3 If Not rstmp.EOF Then iRasId = rstmp("Id") End If rstmp.Close() Else iRasId = Request("id") End If If Not CheckIP(Request.ServerVariables("REMOTE_ADDR")) Then strSQL = "UPDATE Rassen SET teller = teller + 1 WHERE id = " & iRasId connection.execute(strSQL) End If Set rs_ras = Server.CreateObject("ADODB.Recordset") Set rstmp = Server.CreateObject("ADODB.Recordset") rs_ras.Open "SELECT * FROM Rassen WHERE id = " & iRasId, connection, 1, 3 If Not rs_ras.EOF Then If rs_ras("rasvereniging") <> "" Or rs_ras("rasvereniging") <> 0 Then rstmp.Open "SELECT * FROM Ras_Verenigingen WHERE id = " & CInt(rs_ras("rasvereniging")), connection, 1, 3 If Not rstmp.EOF Then iId = rstmp("id") sVereniging = rstmp("vereniging") sUrl = rstmp("url") End If rstmp.Close() End If If rs_ras("rasgroep") <> "" Then rstmp.Open "SELECT * FROM Rasgroep WHERE id = " & CInt(rs_ras("rasgroep")), connection, 1, 3 If Not rstmp.BOF Or rstmp.EOF Then sRasgroep = rstmp("rasgroep") End If rstmp.Close() End If If rs_ras("sectie") <> "0" Then rstmp.Open "SELECT * FROM Secties WHERE id = " & CInt(rs_ras("sectie")), connection, 1, 3 If Not rstmp.BOF Or rstmp.EOF Then sSectie = rstmp("sectie") End If rstmp.Close() End If If rs_ras("land_van_herkomst") <> "" Then rstmp.Open "SELECT * FROM Landen WHERE id = " & CInt(rs_ras("land_van_herkomst")), connection, 1, 3 If Not rstmp.EOF Then sLandvanherkomst = rstmp("land") End If rstmp.Close() End If %> <%=rs_ras("ras")%> hondenras op kennels.nl , kennel, kennels, hondenkennel, hond, honden, hondenras, rashond, hondenrassen, rashonden, Honden, huisdieren"> "> <% If rs_ras("fci_nummer") <> "" Then If Len(rs_ras("fci_nummer")) > 3 Then FCINummer = rs_ras("fci_nummer") Else FCINummer = rs_ras("fci_nummer") & "B" End If End If %> <%If rs_ras("afbeelding") <> "" Then%><%End If%> <%If Left(rs_ras("fci_nummer"),3) < 600 Then%> <%End If%>

Hier vindt u gegevens over het ras <%=rs_ras("ras")%>.

 

Gebruik het snelmenu: ">Forum, <% sSql = "SELECT * FROM Advertenties LEFT JOIN Kennel_Ras ON Advertenties.id=Kennel_Ras.id_1 WHERE Advertenties.tonen = 1 AND Advertenties.voorwaarden_akkoord = 1 AND Kennel_Ras.id_2 = " & rs_ras("id") rstmp.Open sSql, connection, 1, 3 If Not rstmp.EOF Then %> ">Kennels, <% End If rstmp.Close %> <% sSql = "SELECT * FROM Pups LEFT JOIN Advertenties ON Advertenties.id = Pups.kennel WHERE Advertenties.tonen = 1 AND Pups.ras = " & rs_ras("id") rstmp.Open sSql, connection, 1, 3 If Not rstmp.EOF Then %> ">Pups <% End If rstmp.Close %>

 
Ras:<%=rs_ras("ras")%>">
FCI nummer:<%=Left(rs_ras("fci_nummer"),3)%>
Rasgroep:<%=sRasgroep%>
Sectie:<%=sSectie%>
Rasvereniging:<%If sUrl <> "" Then%><%End If%><%=sVereniging %><%If sUrl <> "" Then%><%End If%>
Land van herkomst:<%=sLandvanherkomst%>
Schofthoogte:reu: <%=rs_ras("schofthoogte_van")%><%If rs_ras("schofthoogte_tot") <> "" Then%> - <%=rs_ras("schofthoogte_tot")%><%End If%> cm<%If rs_ras("schofthoogte_teef_van") <> "" Then%>  teef: <%=rs_ras("schofthoogte_teef_van")%><%If rs_ras("schofthoogte_teef_tot") <> "" Then%> - <%=rs_ras("schofthoogte_teef_tot")%><%End If%> cm<%End If%>
Gewicht:reu: <%=rs_ras("gewicht_van")%><%If rs_ras("gewicht_tot") <> "" Then%> - <%=rs_ras("gewicht_tot")%><%End If%> kg<%If rs_ras("gewicht_teef_van") <> "" Then%>  teef: <%=rs_ras("gewicht_teef_van")%><%If rs_ras("gewicht_teef_tot") <> "" Then%> - <%=rs_ras("gewicht_teef_tot")%><%End If%> kg<%End If%>
Omschrijving:

<%If FCINummer <> "" Then%><%End If%>
<%If rs_ras("informatie") <> "" Then%><%=replace(rs_ras("informatie"),vbLf,"
")%><%End If%>
<%End If%>