Hocam yanlış anlamayın siz direk kopyalıyım çalışsın mantığındasınız yani uğraşmıyım hiç sevmediğim bir hareket ama neyse yardımcı olayım bu şekilde yazacağınıza kodun kolayı var işte.

<%
BaslamaTarihi = sikalan
BitisTarihi = rsArac("AracSigorta")
ToplamSure =  DateDiff("d",BaslamaTarihi,BitisTarihi)
GecenSure =   DateDiff("d",BaslamaTarihi,Date)
KalanSure = ToplamSure-GecenSure

If KalanSure=<15 Then
Response.Write("<strong class=""yesil fas fa-info""> "&KalanSure&" gün sonra bitiyor</strong>")
ElseIf KalanSure=0 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert-box""> sigortanız bugün bitti</strong>")
ElseIf KalanSure=<0 Then
Response.Write("<strong class=""kirmizi mdi mdi-alert kesik"">" &KalanSure & " gün geçmiş</strong>")
Else
Response.Write("<strong class=""yesil mdi mdi-check"">" &KalanSure & " gün kaldı</strong>")
End If
%>

Aslında altta yazmışsın sıfırdan sonrakinde bunu üste 15 de uyarlıyacan.

Bu arada 15 şin yerine ne yazarsan o gün kaladan itibaren yazar okadar basit...