Name redefined
Jeg får denne fejl :**********
Microsoft VBScript compilation error '800a0411'
Name redefined
/tipsbasen/guider/view_search_selected.asp, line 127
Dim adoCon 'Holds the Database Connection Object
----^
*******
<% Session.LCID=1030 %>
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rs 'Holds the recordset for the record to be updated
Dim strSQL 'Holds the SQL query for the database
Dim lngRecordNo 'Holds the record number to be updated
'Read in the record number to be updated
lngRecordNo = CLng(Request.QueryString("ID"))
'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tips.mdb")
'Create an ADO recordset object
Set rs = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tipstabel.* FROM tipstabel WHERE ID_no=" & lngRecordNo
'Open the recordset with the SQL query
rs.Open strSQL, adoCon
%>
<html>
<head>
<title>.:: Tipsbasen ::.</title>
<link rel="stylesheet" type="text/css" href="stil.css">
<meta http-equiv="Cache-Control" content="no-store">
<meta http-equiv="Pragma" content="no-cache">
</head>
<body bgcolor=#F9F9F9 text="black" background="../html-images/back_carbon.gif"><br>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber2">
<tr>
<td width="100%">
<p align="center">
<font face="Verdana" size="2"><b>
<%=rs("Overskrift")%></b>
</p>
</td>
</tr>
<tr>
<td width="100%">
<hr width="100%">
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<table border="0" width="80%">
<tr>
<td width="20%"><font face='verdana' size='1'>Indsendt af</td>
<td><font face='verdana' size='1'>:<%
Response.write "<FONT size=1 face=verdana>" & rs("Forfatter") & "</FONT>"
%>
</td>
<td width="15%"><font face='verdana' size='1'>Kategori</td>
<td><font face='verdana' size='1'>:<%
Response.write "<FONT size=1 face=verdana>" & rs("kategori") & "</FONT>"
%></td>
</tr>
<tr>
<td width="20%"><font face='verdana' size='1'>Indsendt d.</td>
<td><font face='verdana' size='1'>:<%
Response.write "<FONT size=1 face=verdana>" & rs("dato") & "</FONT>"
%></td>
<td width="15%"><font face='verdana' size='1'>Klokken</td>
<td><font face='verdana' size='1'>:<%
Response.write "<FONT size=1 face=verdana>" & rs("tid") & "</FONT>"
%></td>
</tr>
</table>
</div>
<br>
<div align="center">
<center>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber2">
<tr>
<td width="20%" align="left" colspan="2"><font face="Verdana" size="1">
<a href="<%=rs("url")%>" target=_blank><%=rs("url")%></a>
</td>
</tr>
</table>
</center>
</div>
<br>
<div align="center">
<table border="0" width="80%">
<tr>
<td align=right>
<img border="0" src="../html-images/print1.gif" width="16" height="16" alt="Print" style="cursor:hand;cursor:pointer" onclick="self.print();">
<img border="0" src="../html-images/x_icon-1.gif" width="16" height="16" alt="Luk Vinduet" style="cursor:hand;cursor:pointer" onclick="java script:window.close()">
</td>
</tr>
</table>
</div>
</body>
</html>
</font>
<%
'Reset server objects
rs.Close
Set rs = Nothing
Set adoCon = Nothing
%>
