24. februar 2002 - 20:55
#4
her er hele scriptet hvis det kan hjælpe:)
<%
dim mode, id
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
id = Request("rid")
sp = Request("sp")
myconn.Execute("Update jwringetoner SET hits =hits+1 where id="&id)
%>
<html>
<head>
<title>ring</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="styles.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#006699" vlink="#006699" alink="#006699">
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="0" align="center">
<tr>
<td width="100%" bgcolor="#FFFFFF" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr bgcolor="#FFFFFF">
<td width="50%"><font size="5"><b><font face="Verdana, Arial, Helvetica, sans-serif">ring</font></b></font></td>
<td align="right" valign="bottom" nowrap width="50%">
<div align="right"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border='0' cellspacing='0' cellpadding='0' width='700' align="center" height="19">
<tr>
<td width='1' valign='top' bgcolor='#000000'><img src="images/intet.gif" width='1'></td>
<td width='698' valign='top' bgcolor='#f7f7f7'>
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<tr>
<td width="63%"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font size="2"><a href="index.asp">[
Home</a> </font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font size="2">|
</font></b></font></b></font><font size="2"><a href="ringetoner.asp?alfa=ABCD">ring</a></font><font
face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana,
Arial, Helvetica, sans-serif"><b><font size="2">
</font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font size="2">|
</font></b></font></b></font></b></font></b></font></b></font><font size="2"><a
href="topliste.asp">Top40</a></font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial,
Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="2">
| </font><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font size="2"><a href="nye.asp">nye</a></font><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font face="Verdana, Arial, Helvetica, sans-serif"><b><font face="Verdana, Arial, Helvetica,
sans-serif"><b><font size="2">
|
</font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></fo
nt></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font><
/b></font></b></font></b></font><font size="2"><a href="indsaet.asp">Add
</a></font>
<td width="37%">
<div align="right"><b></b></div>
</td>
</tr>
</table>
</td>
<td width='1' valign='top' bgcolor='#000000'><img src="intet.gif" width='1'></td>
</tr>
</table>
<table border="0" width="700" bgcolor="#000000" cellspacing="1" cellpadding="3" align="center">
<tr>
<td bgcolor="#FFFFFF" valign="top" colspan="2">
<div align="center">
<p align="center">
<% strSQL = "SELECT * From jwringetoner where id = " & id
Set rs = myConn.Execute(strSQL)
%>
<font face=tahoma size=2><%=rs("tonenavn")%></font><BR>
<table width="79%" height="24" cellspacing="2">
<tr bgcolor="black">
<td width="68%"><font face=tahoma size=2 color="#FFFFFF"><b>Ring</b></font></td>
</tr>
<%
Do Until rs.EOF
%>
<tr>
<td width="68%">
<%
if sp="rnokia" then response.write"<a href='rnokia'>rnokia</a>"
if sp="rsiemens" then response.write "<a href='rsiemens'>rsiemens</a>"
%>
<%= rs("r"&sp) %> </td>
</tr>
<%
rs.MoveNext
Loop
%>
<p></p>
</table>
<p align="left">
</div>
</td>
</tr>
</table>
</body>
</html>