---
title: "Signatur..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13127-signatur"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "graf"
published: "2001-12-09T21:36:00.000Z"
updated: "2001-12-10T20:14:00.000Z"
replies: 9
views: 194
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13127-signatur"
---

# Signatur...

## #1 — graf, 2001-12-09T21:36Z

Hej!
Har en gästbok, om jag vill att när namnet Graf skrivs så kommer en speciell signatur under mina inlägg, hur gör jag då? Vill helst inte ha nåt med en databas och göra.

Permalänk: https://www.webforum.nu/p/13127

## #2 — LarsG, 2001-12-09T21:41Z

Du har väl en databas där du lagrar inläggen? 

I din loop där du presenterar inlägg så får du lägga till en signatur beroende  på vem som gjort inlägget. Det är enklare att beskriva hur du skall göra om du visar den kod som du har för att visa inlägg.

Permalänk: https://www.webforum.nu/p/300444

## #3 — graf, 2001-12-09T21:47Z

\<!-- #include file="adovbs.inc" --\>

\<HEAD\>
\<SCRIPT LANGUAGE="JavaScript"\>

\<!-- DRT
function doscriptwin(path) {
window.open(path, "\_blank", "scrollbars,width=820,height=550,resizable=yes,left=150,top=80");
}
// DRT--\>

\</SCRIPT\>

\</HEAD\>
  \<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>
\<style type="text/css"\>
\<!--
a:link { text-decoration: none; color: #000000}
a:visited { text-decoration: none; color: #000000}
a:active { text-decoration: none; color: #330000}

BODY { 
scrollbar-face-color: #FFFFFF; 
scrollbar-shadow-color: #CCCCCC; 
scrollbar-highlight-color: #CCCCCC; 
scrollbar-3dlight-color: #CCCCCC; 
scrollbar-darkshadow-color: #CCCCCC; 
scrollbar-track-color: #FFFFFF; 
scrollbar-arrow-color: #CCCCCC;
}
\--\>
\</style\>

\<%
IF Request.QueryString("DO") = "SKICKA" THEN

'###### LITE KONTROLLER ######

IF Trim(Request.Form("namn")) = "" THEN
	Session("fel")= "Du måste fylla i NAMN"
ElseIF Trim(Request.Form("kommentar")) = "" THEN
	Session("fel")= "Du måste fylla i en KOMMENTAR"
END IF

IF Session("fel") \<\> "" Then
	Response.Redirect "gb.asp?DO=SKRIV"
END IF

'##### SLUT KONTROLLERAT #####

'####### FIXAR SMILEYS OCH ANNAT ######

text = Request.Form("kommentar")
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"\<br\>")

namn = server.HTMLEncode(Request.Form("namn"))   'Så slipper man jobbigt folk!
epost = server.HTMLEncode(Request.Form("epost"))     'Så slipper man jobbigt folk!
hemsida = server.HTMLEncode(Request.Form("hemsida"))       'Så slipper man jobbigt folk!

'################ SLUT ################

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/gb97.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From gb"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.ADDNEW

	RecSet("NAMN") = namn
	RecSet("EPOST") = epost
	RecSet("HEMSIDA") = hemsida
	RecSet("KOMMENTAR") = text
	RecSet("IP") = Request.ServerVariables("REMOTE_ADDR")
	RecSet("DATUM") = NOW()
	
	RecSet.UPDATE
	
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "gb.asp"

END IF
%\>

\<html\>
\<head\>
\<title\>graf\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>

\</head\>

\<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"\>
\<p align="left"\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="6" color="#000000"\>\<b\> 
  \<% IF Request.QueryString("DO") \<\> "READ" THEN %\>
  \</b\>\</font\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"\>\<br\>
  \<b\>\</b\>\<br\>
  \<br\>
  \<br\>
  \<a href=javaScript:window.self.close()\>\<IMG SRC="stang_fonster.gif" border="0"\>\</a\>\<br\>
  \<br\>
  \</p\>
\<div align="left"\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\>\<b\> 
  \<% 
			IF Session("fel") \<\> "" THEN
			Response.Write Session("fel")
			Session("fel") = ""
			End IF
			%\>
  \</b\> \</font\> \</div\>
\<form name="form1" method="post" action="gb.asp?DO=SKICKA"\>
  \<div align="left"\>
    \<table width="400" border="0" cellspacing="0" cellpadding="2"\>
      \<tr\> 
        \<td width="143"\> \<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\> 
          \<input type="text" name="namn" size="25" maxlength="50"\>
          \</font\>\</td\>
        \<td width="249"\>\<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\>namn\<font color="#993300"\>\</font\>\</font\>\</td\>
      \</tr\>
      \</tr\>
      \<tr\> 
        \<td width="143"\> \<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\> 
          \<input type="text" name="hemsida" size="25" value="" maxlength="50"\>
          \</font\>\</td\>
        \<td width="249"\>\<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\>Hemsida\</font\>\</td\>
      \</tr\>
      \<tr\> 
        \<td colspan="2"\> \<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\> 
          \<textarea name="kommentar" rows="5" cols="40"\>\</textarea\>
          \</font\>\<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\>text\<font color="#993300"\>\</font\>\</font\>\</td\>
      \</tr\>
      \<tr\> 
        \<td width="143"\> \<font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif"\> 
          \<input type="submit" name="Submit" value="Spara" alt="Posta ditt inl&auml;gg" border = "0"\>
          \</font\>\</td\>
        \<td width="249"\>&nbsp;\</td\>
      \</tr\>
    \</table\>
  \</div\>
\</form\>
\<p align="center"\> 
  \<% END IF %\>
  \<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\> 
  \<% IF Request.QueryString("DO") = "READ" THEN 

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("db/gb97.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From gb ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

'#### Räknar ut antal sidor ####

COUNT = 0
DO UNTIL RecSet.EOF
	COUNT = COUNT +1
	RecSet.MOVENEXT
LOOP

IF int(COUNT/5) = COUNT/5 THEN
antal_sidor = COUNT/5
ELSE
antal_sidor = int(COUNT/5)+1
END IF

RecSet.Close
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

'##### SLUT PÅ RÄKNANDET #####
%\>
  \</font\>\</p\>
\<div align="center"\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\>\<br\>
  Antal sidor: 
  \<% FOR X=1 TO antal_sidor %\>
  \<a href="gb.asp?DO=READ&skipp=\<%=(X-1)%\>"\>\<%=X%\>\</a\> 
  \<% NEXT %\>
  \<%
IF Request.QueryString("skipp") = "" THEN
skipp = 0
ELSE
skipp = Request.QueryString("skipp")
END IF
'### Hoppar fram till rätt inlägg ###

	FOR X=1 TO skipp
		FOR Y=1 TO 9
			RecSet.MOVENEXT
		NEXT
	NEXT
	
'#### KLAR #### 

Z=0 
DO UNTIL RecSet.EOF OR Z=10 
Z=Z+1 
%\> 
\<br\> 
\<br\> 
\</font\> 
\<table width="400" border="0" cellspacing="0" cellpadding="1"\> 
\<tr\> 
\<td bgcolor="#F5F5F5"\> 
\<table width="100%" border="0" cellspacing="0" cellpadding="2"\> 
\<tr\> 

\<td\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="\<%=strColor%\>"\>Skrivet 
av:\<font color="#993300"\> \<%=RecSet("NAMN")%\> \</font\> den: \<%session.lcid=1053%\> 
\<%=dateadd("h",6,cdate(RecSet("DATUM")))%\> 
\</font\>\</td\> 
\</tr\> 
\<tr\>
\<td bgcolor="#FFFFFF"\> \<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
\<b\>\<%=RecSet("HEMSIDA")%\>\</B\>\<p\>\<%=RecSet("KOMMENTAR")%\> \<br\> 
\<br\> 
\</font\> 
\<hr width="100%" size="1" align="center"\> 
\</td\> 
\</tr\> 
\<tr\> 
\<td bgcolor="#FFFFFF"\> \<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\> 
\<% 
IF RecSet("HEMSIDA") = "" OR RecSet("HEMSIDA") = "http://" THEN 
Response.Write "Ingen hemsida" 
ELSE 
%\> 

              \<% END IF %\>
               \<%
IF RecSet("EPOST") = "" THEN
Response.Write ""
ELSE
%\>
              

              \<% END IF %\>

              \</font\>\</td\>
          \</tr\>
        \</table\>
      \</td\>
    \</tr\>
  \</table\>
  \<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\> 
  \<%
RecSet.MOVENEXT
LOOP
RecSet.Close
Connect.CLose
%\>\<%End If%\>
  \</font\>\</div\>
\</body\>
\</html\>

Permalänk: https://www.webforum.nu/p/300445

## #4 — LarsG, 2001-12-09T22:05Z

Det är den här biten du måste ändra

```
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="<%=strColor%>">Skrivet 
av:<font color="#993300"> <%=RecSet("NAMN")%> </font> den: <%session.lcid=1053%> 
<%=dateadd("h",6,cdate(RecSet("DATUM")))%>
```

till

```
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="<%=strColor%>">Skrivet 
av:<font color="#993300"> <% 
[b]namn = Recset("NAMN")
response.write namn
if namn = "graf" then %>
  skriv din signatur här
<%end if[/b] %> </font> den: <%session.lcid=1053%> 
<%=dateadd("h",6,cdate(RecSet("DATUM")))%>
```

Du får fixa till din HTML så att det blir som du vill ha.

Permalänk: https://www.webforum.nu/p/300446

## #5 — graf, 2001-12-10T12:33Z

Perfekt, tack!
Men om jag vill att en till användare ska ha en signatur, så om t ex användaren danne vill ha signatur: "Hejsan" vad lägger jag till då i koden?

Tack så mkt!

Permalänk: https://www.webforum.nu/p/300447

## #6 — LarsG, 2001-12-10T12:41Z

Du kan fylla på med elseif för varje ny signatur

```
if namn = "graf" then %>
skriv din signatur här
<%elseif namn = "danne" then %>
skriv dannes signatur här
<%elseif namn = "kurt" then %>
skriv kurts signatur här
<%end if %>
```

Är det inte lika bra att lägga ner signaturen i databasen på en gång?

Permalänk: https://www.webforum.nu/p/300448

## #7 — graf, 2001-12-10T12:43Z

Schyst! Tack!
Kan typ inget om databashantering, så jag tror inte jag klarar det faktiskt...

Permalänk: https://www.webforum.nu/p/300449

## #8 — graf, 2001-12-10T20:00Z

Har en till fråga till vem som helst här ;-)
Såhär ser scriptet ut för en signatur:

\<% 
namn = Recset("NAMN")
response.write namn
if namn = "Webmaster" then %\>
\<p\>\</B\>Signaturen
\<%elseif namn = "Graf" then %\>
SIGNATUREN
\<%end if %\>

Men där det står Webmaster & Graf, om jag vill göra så att de blir länkaktiva, så att signaturen blir Graf + vad jag har som signatur, och om man klickar på Graf så kommer man till en annan sida, hur gör man då? Tack på förhand!

Permalänk: https://www.webforum.nu/p/300450

## #9 — LarsG, 2001-12-10T20:11Z

```
<% 
namn = Recset("NAMN")
if namn = "Webmaster" then 
response.write "<a href='somepage.asp'>" & _
namn & "</a>" %>
<p></B>Signaturen
<%elseif namn = "Graf" then 
response.write "<a href='someotherpage.asp'>" & _
namn & "</a>" %>
SIGNATUREN
<%else
response.write name
end if %>
```

Permalänk: https://www.webforum.nu/p/300451

## #10 — graf, 2001-12-10T20:14Z

Vafan Lars!!
Hur kan du allt? Du är ju onormal ;-)
Hehe tack så jätte mycket än en gång!

Permalänk: https://www.webforum.nu/p/300452

---

Tråden på webben: https://www.webforum.nu/amne/asp/13127-signatur
