databaseconnection 1

[andreas57]

hello i think i've got a typical microsoft problem here. could somebody help me
i've marked the spot where the error accurs

<%
Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot
set rs=sharknetc.execute(&quot;SELECT T_Domain.Domain, T_Domain.[FP-User], T_Domain.[FP-Passwort], T_Domain.von, T_Domain.bis, T_Email.email, T_Email.User, T_Email.Passwort, T_Email.von, T_Email.bis, T_Kunden.Firma, T_Kunden.Name, T_Kunden.Vorname, T_Kunden.Strasse, T_Kunden.PLZ, T_Kunden.Ort, T_Kunden.Tel FROM T_Kunden INNER JOIN (T_Domain INNER JOIN T_Email ON T_Domain.[Domain-ID] = T_Email.[Domain-ID]) ON T_Kunden.[Kunden-ID] = T_Domain.[Kunden-id] WHERE T_Domain.Domain='repa.ch'&quot
%>
<!-- rs.Open sql, sharknet,3,3 -->
</font></p>

</font><table border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; width=&quot;100%&quot;>
<!--
On Error Resume Next
rs.MoveFirst
do while Not rs.eof -->

<tr>
<td width=&quot;25%&quot; valign=&quot;top&quot;><!--mstheme--><font face=&quot;arial, Arial, Helvetica&quot;><font face=&quot;Arial&quot; size=&quot;1&quot;><strong>Domain:</strong><br>
Firma:<br>
Name:<br>
Vorname:<br>
Ort:<br>
Tel:<br>
Von:<br>
Bis:<br>
Abo:<br>
</font><!--mstheme--></font></td>

<td width=&quot;75%&quot; valign=&quot;top&quot;><!--mstheme--><font face=&quot;arial, Arial, Helvetica&quot;><font face=&quot;Arial&quot; size=&quot;1&quot;>
<font COLOR=&quot;#000000&quot;><%=Server.HTMLEncode(rs.Fields(&quot;domain&quot.Value)%><br>
<font COLOR=&quot;#000000&quot;><%=Server.HTMLEncode(rs.Fields(&quot;firma&quot.Value)%><br>


&quot;&quot;&quot;&quot;&quot;&quot;&quot;&quot;error starts here:&quot;&quot;&quot;&quot;&quot;&quot;&quot;&quot;&quot;
<font COLOR=&quot;#000000&quot;><%=Server.HTMLEncode(rs.Fields(&quot;name&quot.Value)%></font><br>
<font COLOR=&quot;#000000&quot;><%=Server.HTMLEncode(rs.Fields(&quot;vorname&quot.Value)%></font><br>
<font COLOR=&quot;#000000&quot;><%=Server.HTMLEncode(rs.Fields(&quot;ort&quot.Value)%></font><br>
<font COLOR=&quot;#000000&quot;><%=Server.HTMLEncode(rs.Fields(&quot;tel&quot.Value)%></font><br>
<font color=&quot;#000000&quot;><%=Server.HTMLEncode(rs.Fields(&quot;von&quot.Value)%></font><br>
<font COLOR=&quot;#000000&quot;><%=Server.HTMLEncode(rs.Fields(&quot;bis&quot.Value)%></font><br>
<font COLOR=&quot;#000000&quot;><%=Server.HTMLEncode(rs.Fields(&quot;abo&quot.Value)%></font><br>
</td> </tr>

suddenly a runtimeerror accurs with the vbscript-error:800a000d.
untill that point it displays 2 fields without a problem. [sig][/sig]

 

[NickBulka]

you might have a null value in your database. if so, you can get around this by appending an empty string to each value retrieved:
<%=Server.HTMLEncode(rs.Fields(&quot;name&quot.Value)%> & &quot;&quot; [sig]<p>nick bulka<br><a href=mailto: > </a><br><a href=

http://www.bulka.com>

</a><br>Get your technical books at Bulka's Books<br>

http://www.vstorebooks.com/bulkasbooks

[/sig]