Notifikationer

Markér alle som læst Log ud

hede98 Nybegynder

14. maj 2003 - 23:10 Der er 11 kommentarer og
1 løsning

Findes ikke i databasen

Hej

Jeg laver følgende funktion i starten af mit dokument:
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))
%>

Men når der nu ikke findes nogen poster i "kontaktpersoner" under det rigtige ID, hvad gør man så.

Synes godt om

-master-d- Nybegynder

14. maj 2003 - 23:14 #1

Sådan her :

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))
If Not (rskunder1.bof or rskunder1.eof) then
'her kan du så udskrive værdierne når de kommer
End If
%>

Synes godt om

mm12010 Nybegynder

14. maj 2003 - 23:14 #2

så retunerer forspørgselen et tomt recordset (rskunder1.EOF)

If rskunder1.EOF Then
response.write "Ingen kunder"
end if

Synes godt om

hede98 Nybegynder

14. maj 2003 - 23:36 #3

Den skal bare loade siden uden at give den fejl den kommer med nu, det eneste der sker er at jeg ingen kontakt personer får i min "rulleliste" Så jeg vil bare undgå fejlen beskeden på en måde

Synes godt om

hede98 Nybegynder

18. maj 2003 - 13:24 #4

Gider i ikke at tilpasse koden til mig... Sådan at hvis der ikke findes nogen i kontaktperson så skal den bare skrive "Ingen kontaktpersoner oprettet"

Synes godt om

mm12010 Nybegynder

18. maj 2003 - 13:45 #5

If rskunder1.EOF Then
response.write "Ingen kontaktpersoner oprettet"
end if

Synes godt om

hede98 Nybegynder

18. maj 2003 - 15:28 #6

ok.. nu har jeg fundet ud af at det er her problemet er, hvordan laver jeg det nummer her:
<%do while not rskunder1.EOF%>
<option><%Response.Write rskunder1("Navn")%>&nbsp<%Response.Write rskunder1("efternavn")%></option>
<%rskunder1.MoveNext
loop%>

</select></font></div>
</td>
<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr> <%
rskunder1.Close
set rskunder1 = Nothing
%>

Synes godt om

mm12010 Nybegynder

18. maj 2003 - 17:06 #7

If rskunder1.EOF Then
response.write "Ingen kontaktpersoner oprettet"
Else If
do while not rskunder1.EOF%>
<option><%Response.Write rskunder1("Navn")%>&nbsp<%Response.Write rskunder1("efternavn")%></option>
<%rskunder1.MoveNext
loop%>

</select></font></div>
</td>
<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr> <%
rskunder1.Close
set rskunder1 = Nothing
End If
%>

Synes godt om

hede98 Nybegynder

18. maj 2003 - 19:25 #8

Med nedenstående koder, skriver den bare: siden kan ikke vises

<select size="1" name="kontaktpersonid">
<%If rskunder1.EOF Then
response.write "Ingen kontaktpersoner oprettet"
Else If
do while not rskunder1.EOF%>
<option><%Response.Write rskunder1("Navn")%>&nbsp<%Response.Write rskunder1("efternavn")%></option>
<%rskunder1.MoveNext
loop%>

</select></font></div>
</td>
<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr> <%
rskunder1.Close
set rskunder1 = Nothing
End If
%>

Synes godt om

mm12010 Nybegynder

18. maj 2003 - 19:34 #9

det har i hvert fald ikke noget koden at gøre - prøv lige tjecke din url... :o)

Synes godt om

hede98 Nybegynder

18. maj 2003 - 19:52 #10

nej... det er når jeg indsætte det....

Synes godt om

hede98 Nybegynder

18. maj 2003 - 19:54 #11

Her er hele min kode
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))
%>

<body bgcolor="#FFFFFF">
<table width="962" border="0" height="257">
<tr>
<td width="553" height="263" valign="top">
<form name="form1" method="post" action="nyaktivitet.asp?mode=gem&kundeid=<%=rskunder1("kundeid")%>">
<table width="53%" border="0" height="130" bgcolor="#000000" bordercolor="#000000" cellpadding="1" cellspacing="1">
<tr>
<td height="220" bgcolor="#CCCCCC">
<table width="570" border="0" cellspacing="0" height="335">
<tr>
<td width="153" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Overskrift.:</font></td>
<td colspan="2" height="22" width="249"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="Titel" size="44"></font></td>
<td colspan="2" rowspan="5" valign="top" width="178" height="118"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
 </font></td>
</tr>
<tr>
<td width="153" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Kontakt person.:</font></td>
<td height="22" width="227">
<div align="left">
</select>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">

<select size="1" name="kontaktpersonid">
<%If rskunder1.EOF Then
response.write "Ingen kontaktpersoner oprettet"
Else If
do while not rskunder1.EOF%>
<option><%Response.Write rskunder1("Navn")%>&nbsp<%Response.Write rskunder1("efternavn")%></option>
<%rskunder1.MoveNext
loop%>

</select></font></div>
</td>
<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr> <%
rskunder1.Close
set rskunder1 = Nothing
End If
%>

<td width="153" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Projekt.:</font></td>
<td height="22" width="227"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">

<%' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Projekter ")
%>

<br>
<select size="1" name="Projekt">
<%do while not rskunder1.EOF%>
<option><%Response.Write rskunder1("Projektnavn")%></option>
<%rskunder1.MoveNext
loop%>
</select></font></td>
<%
rskunder1.Close
set rskunder1 = Nothing
%>

<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr>
<td width="153" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Type.:</font></td>
<td height="22" width="227"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<select size="1" name="type">
<option selected>Samtale ud</option>
<option>Samtale ind</option>
<option>E-mail</option>
<option>Dokument</option>
<option>Møde ude</option>
<option>Møde inde</option>
<option>Info</option>
<option>Udsending</option>
</select>
</font></td>
<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr>
<td width="153" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Startdato.:</font></td>
<td height="22" width="227"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="start" size="14"> *(01-01-2000)</font></td>
<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr>
<td width="153" height="22">
 </td>
<td height="22" width="227"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
 </font></td>
<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
<td width="157" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
<td height="22" width="19"> </td>
</tr>
<tr>
<td width="153" height="132"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Notat.:</font></td>
<td colspan="3" height="132" width="408"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<textarea name="notat" rows="8" cols="50"></textarea></font></td>
<td height="132" width="19"> </td>
</tr>
<tr>
<td width="153" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Prioritet</font></td>
<td height="22" width="227"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<select size="1" name="Prioritetid">
<option>Lav</option>
<option selected>Normal</option>
<option>Høj</option>
</select></font></td>
<td width="20" height="22"> </td>
<td width="157" height="22"> </td>
<td height="22" width="19"> </td>
</tr>
<tr>
<td width="153" height="7">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Ansvarlige</font></td>
<td height="7" width="227">
<%' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM ansvar ")
%>

<select size="1" name="ansvarlige">
<%do while not rskunder1.EOF%>
<option><%Response.Write rskunder1("int")%></option>
<%rskunder1.MoveNext
loop%>
</select></font></td>
<%
rskunder1.Close
set rskunder1 = Nothing
%>
</td>
<td width="20" height="7"></td>
<td width="157" height="7"></td>
<td height="7" width="19"></td>
</tr>
<tr>
<td width="153" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Udført</font></td>
<td height="22" width="227">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<select size="1" name="udført">
<option>Ja</option>
<option>Nej</option>
</select></font></td>
<td width="20" height="22"> </td>
<td width="157" height="22"> </td>
<td height="22" width="19"> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="546" border="0">
<tr>
<td width="73" height="2"><b>
<Input type=submit Value=Tilføj>
<input type=hidden name=mode value=gem></b></td>
<td width="463" height="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
* skal udfyldes</font></b></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<p>

</p>

<% if request("mode") = "gem" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
Conn.Open DSN

set rskunder = server.createobject("adodb.recordset")
rskunder.open "aktiviteter", DSN, 1, 3
rskunder.addnew
rskunder ("kundeid") = request.querystring("kundeid")
rskunder("titel") = request.form("titel")
rskunder("kontaktpersonid") = request.form("kontaktpersonid")
rskunder("Prioritetid") = request.form("Prioritetid")
rskunder("type") = request.form("type")
rskunder("start") = request.form("start")
rskunder("udført") = request.form("udført")
rskunder("notat") = request.form("notat")
rskunder("Projekt") = request.form("Projekt")
rskunder("ansvarlige") = request.form("ansvarlige")

rskunder.update
%>

<%
rskunder.Close
set rskunder = Nothing%>
Aktiviteten er gemt <a href="#" OnClick="top.close()">Luk</a>
<%end if%>

Synes godt om

hede98 Nybegynder

31. maj 2003 - 22:46 #12

Fik det ikke til at virke, så jeg lukker!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	6	I går 11:37	I går 22:03
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS