Hvordan sletter jeg her!

Jeg skal have et slet link ud for hver post hvordan gør jeg det?

Koden er således
<%
If Not intId = -1 Then
Set Rs = Conn.Execute("SELECT * FROM KmData WHERE Træningsform = 'Landevej' AND id = " & intId & " ORDER BY Dato DESC")
Response.Write("<strong>LANDEVEJ:</strong><br>" & printRs(rs)) <--HER SKAL DER VÆRE ET SLET LINK
Response.Write("<br><br>")
Set Rs = Conn.Execute("SELECT * FROM KmData WHERE Træningsform = 'MTB' AND id = " & intId & " ORDER BY Dato DESC")
Response.Write("<strong>MTB:</strong><br>" & printRs(rs)) <--HER SKAL DER VÆRE ET SLET LINK
End If
%>

Fomse:-)