grafik knapper / asp

Jeg har fundet dette eks. Men det er bare til en formular. :-(


<%@Language=VBScript LCID=1030%><%Option Explicit%>
<html>
<head><title>Formular</title>
<script language="JavaScript">
function SubmitForSearch()
{   
    document.SearchForm.submit()
}
function ResetForm()
{
    document.SearchForm.reset()
}
</script>
</head>
<body>
<h3>Oplys følgende for at logge på:</h3>
<form name="SearchForm" action="logonExe.asp" method="post">
<table>
    <tr>
        <td>Brugernavn:</td><td><input type="text" name="userName" size="24"></td>
    </tr>
    <tr>
        <td>Password:</td><td><input type="password" name="password" size="24"></td>
    </tr>
    <tr>
        <td></td><td><a href="java script:SubmitForSearch()"><img src="logon.gif" border="0"></a>&nbsp;&nbsp;
        <a href="java script:ResetForm()"><img src="Reset.gif" border="0"></a>
        </td>
    </tr>
</table>
</form>
</body>
</html>

kan du ikke bruge <Input type="image" src="..." name="..."> ?

Det virker ikke

Vil du staig have den funktionalitet, som radiobuttons giver?
Eller vil du bare have en "tilmeld" og "afmeld" knap som man kan trykke på hver for sig?

<form method="POST" action="mail.asp?mode=submit">
<p align="left">
  <input type="text" name="email" size="20"><br>
  <input type="image" src="tilmeld_blaa.gif" name="status" value="tilmeld">
  <input type="image" src="afmeld_blaa.gif" name="status" value="frameld">
</form>
<% End If %>
</table>

******************

Image felterne bliver så hver en submit knap..... du kan finde ud af hvilken der blev brugt med Request.Form("status") (Du behøver altså ikke ændre i den fil, der modtager formularenn, så vid jeg lige kan se....

Jeg har fundet ud af det. Jeg har overført det scriptet til en anden code. jeg vedlægger lige et eks. Tak for hjælpen

<html>
<head>
<LINK REL="StyleSheet" HREF="style.css" type="text/css">
</head>
<body>
<% Dim mode

mode = Request.QueryString("mode")


If mode = "" Then 'Hvis mode = ingenting - så vis formular til tilmelding/framelding

Response.write "<form method='POST' action='index.asp?mode=submit'>"
Response.write "E-mail adresse:<br>"
Response.write "<input type='text' name='email' size='30'><br>"

Response.write "<input type=image src='tilmeld_blaa.gif' name='tilmeld' value='Tilmeld' alt='Tilmelde nyhedsbrev'>"
Response.write "<input type=image src='afmeld_blaa.gif' name='frameld' value='Frameld' alt='Framelde nyhedsbrev'><br><br>"
Response.write "</form>"

ElseIf mode = "submit" Then 'Hvis mode = "submit" så godkend og registrer indtastning

Dim email, status, error
error = False 'Bruges til at teste om der er sket fejl eller der er mangler i indtastning
email = Trim(Replace(Request.Form("email"), "'", ""))

if Request.Form("tilmeld.x") <> "" Then
  status="tilmeld"
else
  status="frameld"
End If 

If Len(email) = 0 Then 'Tester om der er indtastet e-mail adresse
Response.Write "<b>Du har ikke indtastet en e-mail adresse</b>"
error = True
End If

If error = False Then 'Tilføjer eller fjerner e-mail adresse fra database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

If status = "tilmeld" Then 'Tilmelder e-mails
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev WHERE email='" & email & "'")
If Not rs.EOF Then
Response.Write "<b>Denne e-mail adresse er allerede tilmeldt nyhedsbrevet</b>"
Else
Conn.Execute("INSERT INTO nyhedsbrev (email) VALUES ('" & email & "')")
Response.Write "<b>Du er nu tilmeldt nyhedsbrevet</b>"
End If
End If 'Slutter tilmeld

If status = "frameld" Then 'Framelder e-mails
Set rs = Conn.Execute("SELECT email FROM nyhedsbrev WHERE email='" & email & "'")
If Not rs.EOF Then
Conn.Execute("DELETE * FROM nyhedsbrev WHERE email='" & email & "'")
Response.Write "<b>Du er nu frameldt nyhedsbrevet</b>"
Else
Response.Write "<b>Din e-mail adresse blev ikke fundet i systemet</b>"
End If
End If 'Slutter frameld
Conn.Close
Set Conn = Nothing
End If 'Slutter tilmeld/frameld %>
<br><a href="java script:history.back()">&laquo;&nbsp;Tilbage</a>
<% End If %>
</body>
</html>