Udtræk to ens fra database
Jeg har en undersøgelse som jeg har oprettet www.lund.dk/maelk/vote.asp hvor folk kan stemme.For at undgå misbrug, gemmer den også folks IP og jeg kan via et lille admin se dem.
men jeg ville meget gerne have lavet et udtræk også, så jeg får af vide hvis der findes 2 ens IP adresser i databsen. Hvordan det ?
Mit script ser således ud:
<code>
<%
dim Connection,SQLstringK,KRS
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../../db/maelkvote.mdb")
SQLstringK="SELECT * FROM tabel order by IP"
SET KRS=Connection.Execute(SQLstringK)
%>
<table border="0" cellpadding="0" cellspacing="1">
<tr>
<td width="200"><font size="2" face="Verdana"><b>Stemme</b></font></td>
<td width="200"><font size="2" face="Verdana"><b>Navn</b></font></td>
<td width="200"><font size="2" face="Verdana"><b>IP</b></font></td>
<td width="200" align="center"><font size="2" face="Verdana" color="#000000"><b>Slet</b></font></td>
</tr>
<%
while not KRS.EOF%>
<tr>
<td width="200" bgcolor="#CCCCCC"><font size="2" face="Verdana"><% = KRS("Vote") %></font></td>
<td width="200" bgcolor="#CCCCCC"><font size="2" face="Verdana"><% = KRS("Navn") %></font></td>
<td width="200" bgcolor="#CCCCCC"><font size="2" face="Verdana"><% = KRS("IP") %></font></td>
<td width="200" bgcolor="#FF0000" align="center"><a href="java script:if(confirm('Er du sikker på du vil slette denne \n Stemme:<% = KRS("Vote") %> \n Navn:<% = KRS("navn") %> \n <% = KRS("Ip") %> ')) self.location.href = './slet.asp?id=<%=KRS("id")%>';"><font size="2" face="Verdana" color="#000000"><b>SLET</b></font></a></td>
</tr>
<%
KRS.MoveNext
wend
KRS.close
set KRS =nothing
connection.close
set connection = nothing
%>
</table>
