Notifikationer

Markér alle som læst Log ud

jr40 Nybegynder

11. maj 2003 - 00:15 Der er 11 kommentarer og
1 løsning

udskriv med hvid!

Hejsa

jeg har en her asp kode, hvor der bliver hentet noget tekst fra en db:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
strSQL = "Select * From faq"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write "<center>Der er ingen spørgsmål lige nu... "
else
Do Until rs.EOF
%>
<a href="#<%=RS("ID")%>"><%=RS("Smaal")%></a>
<%
if rs("Godkendt") = "Nope" then
%>
NY
<%
else
end if
%>
 
<%RS.MoveNext
Loop
end if
%>

Som du nok ser har jeg prøvet af gøre teksten som bliver hentet ud fra dben "hvid", men det løkkes ikke så jeg vil høre om der er nogle der ved hva jeg ska gøre, for af teksten der bliver [HVID]

Synes godt om

eagleeye Praktikant

11. maj 2003 - 00:19 #1

Du skal havde en tag omkring som gør teksten hvis, her er det det som står i RS("Smaal") som gerne skulle blive hvis.

<a href="#<%=RS("ID")%>"><%=RS("Smaal")%></a>

Synes godt om

medions Nybegynder

11. maj 2003 - 00:19 #2

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
strSQL = "Select * From faq"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write "<center>Der er ingen spørgsmål lige nu... "
else
Do Until rs.EOF
%>
<a href="#<%=RS("ID")%>"><%=RS("Smaal")%></a>
<%
if rs("Godkendt") = "Nope" then
%>
NY
<%
else
end if
%>
 
<%RS.MoveNext
Loop
end if
%>

//>Rune

Synes godt om

jr40 Nybegynder

11. maj 2003 - 00:25 #3

eagleeye du var først, så du for points.

Synes godt om

jr40 Nybegynder

11. maj 2003 - 00:27 #4

Vil lige høre om i også kan svare på et andet spørgsmål:

jeg har en kode her når man har trykket ok:
Conn.Close
set Conn = Nothing
response.redirect "stil.asp?submode=tak"
elseif Request.QueryString("submode")="tak" then
%>
 
</div>
 <center>
Tak for dit spørgsmål, vi svare hurtigst muligt ! 
 
<a href="default.asp">Videre !</a>
<%
end if
%>

så kommer der tekst (vidre) og med link over til den default.asp side som i ser i koden.
Mit spørgsmål er bare hvordan jeg sætter bg til sort og vidre teksten til hvid i den kode?

Synes godt om

eagleeye Praktikant

11. maj 2003 - 00:31 #5

Baggrunds farven sættes i <body> hvis det skal være for hele siden.

Synes godt om

jr40 Nybegynder

11. maj 2003 - 00:33 #6

yes det er den også sat til:


<% if Request.QueryString("submode")="" then %>
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title><%=SystemNavn%></title>
</head>

<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF"
vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
 <%=SystemNavn%>
<div align="left">
<table border="0" cellpadding="2" cellspacing="0" width="500">
<tr>
<td width="100%"> Herunder
kan du stille spørgsmål som du ikke fik svar på ved at læse faq'en.
HUSK at vi forsøger at holde os til ting der er specielle for vores
service og ikke genere programmeringshjælp. 
 
 

<table border="0" width="100%" bgcolor="#C0C0C0" cellspacing="0" cellpadding="4">
<tr>
<td width="45%">Stil spørgsmål:</td></center>
<td width="55%">  </td>
</tr>
</table>
</table>
<table border="0" cellpadding="2"
cellspacing="0" width="50%"><tr><form action="stil.asp?submode=save" method="POST">
<td align="right" width="20%"> 
Navn:</td>
<td width="80%"> 
<input type="text" size="41"
name="Navn">
*</td></tr>
<tr>
<td align="right" width="20%">E-maill:</td>
<td width="80%">
<input type="text" size="41"
name="email">
*</td>
</tr>
<tr>
<td align="right" width="20%">Postnr. &
By:</td>
<td width="80%">
<input type="text" size="41"
name="postby">
*</td>
</tr>
<tr>
<td align="right" width="20%">Spørgsmål:</td>
<td width="80%">
<input type="text" size="41"
name="Smaal">
*</td>
</tr>
</table>
</div>

<input type="submit"
name="B1" value="[ Stil spørgsmål ]">
</form>
<center>
<div align="left">
<table border="0" cellpadding="2" cellspacing="0" width="500">
<tr>
<td width="100%"> <table border="0" width="100%" cellspacing="0" cellpadding="4" bgcolor="#C0C0C0">
<tr>
<td width="100%">Spørgsmål:</td>
</tr>
</table></center>
 
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
strSQL = "Select * From faq"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write "<center>Der er ingen spørgsmål lige nu... "
else
Do Until rs.EOF
if rs("Godkendt") = "Nope" then
else
%>
<a href="#<%=RS("ID")%>"><%=RS("Smaal")%></a> 
<%
end if
RS.MoveNext
Loop
end if
%>
 
 <table border="0" width="100%" bgcolor="#C0C0C0" cellspacing="0" cellpadding="4">
<tr>
<td width="100%">Svar:</td>
</tr>
</table>

<%
strSQL = "Select * From faq"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write " <center>Ingen spørgsmal, ingen svar !!... <hr size='1' color='#C0C0C0'>"
else
Do Until rs.EOF
if rs("Godkendt") = "Nope" then
else
%>
 <a href="config.asp?submode=slet&id=<%=RS("Id")%>">
 
</a><a name="<%=RS("ID")%>">Spørgsmal:
 
<%=RS("Smaal")%> Svar:
 
<%=RS("Svar")%> 
 </a> 
 <a href="default.asp#top">Til
Toppen</a>
<hr size="1" color="#C0C0C0">
<%
end if
RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%>
 <%=Version%>
</table>
<%
elseif Request.QueryString("submode")="save" then
response.buffer = true

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From faq"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("Af") = Request.form("Navn")
rs("Smaal") = Request.form("Smaal")
rs("Email") = Request.form("email")
rs("Postby") = Request.form("postby")
rs("Godkendt") = "Nope"
rs("Dato") = date()
rs("Tid") = time()
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect "stil.asp?submode=tak"
elseif Request.QueryString("submode")="tak" then
%>
 
</div>
 <center>
Tak for dit spørgsmål, vi svare hurtigst muligt ! 
 
<a href="default.asp">Videre !</a>
<%
end if
%>

Synes godt om

eagleeye Praktikant

11. maj 2003 - 00:35 #7

Så skulle du kunne rette dette:

elseif Request.QueryString("submode")="tak" then
%>
 
</div>
 <center>
Tak for dit spørgsmål, vi svare hurtigst muligt ! 
 
<a href="default.asp">Videre !</a>
<%
end if

Til:

elseif Request.QueryString("submode")="tak" then
%>
 
</div>
 <center>
Tak for dit spørgsmål, vi svare hurtigst muligt ! 
 
<a href="default.asp">Videre !</a>

<%
end if

Synes godt om

jr40 Nybegynder

11. maj 2003 - 00:38 #8

bg er stadigvæk hvid ;/

Synes godt om

eagleeye Praktikant

11. maj 2003 - 00:41 #9

Har du en </body> og </html> tilsidst i koden?

Synes godt om

jr40 Nybegynder

11. maj 2003 - 00:43 #10

yep

Synes godt om

eagleeye Praktikant

11. maj 2003 - 00:49 #11

Undeligt.

Prøv mellem <head> og </head> at tilføje:

<style type="text/css">
body {background-color: #FFFFFF;}
</style>

og fjerne bgcolor fra body tagen.

Synes godt om

jr40 Nybegynder

11. maj 2003 - 00:53 #12

nej dur ik desværre ;/
men fuck det.

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	7	I går 11:37	I dag 15:45
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