"Jakob Andersen" <jakob@effectus.dk> wrote
> Kan vi se denne funktion, og formularen som kalder den?
Jeg har hældt alle dataene fra første brug af recordsettet over i variabler,
da jeg tænkte at det måske var en god ide, da jeg jo også skal bruge
recordsettet til funktionen!
Selve funktionen kaldes ved denne linie:
strOut = strOut & "<tr><td>Postnr:</td><td><select name='postnr'>" &
Find_Postnumre() & "</select> </td><td></td></tr>"
** Formular start **
strSQL = "SELECT * FROM Medarbejder WHERE Medarbejdernr = " &
strMedarbejdernr & ";"
Set objRS = objConn.Execute(strSQL)
varMedarbejderPostnr = objRS("Postnr")
strMedarbejdernr = objRS("Medarbejdernr")
strFornavn = objRS("Fornavn")
strEfternavn = objRS("Efternavn")
strAdresse = objRS("Adresse")
intTelefonnr = objRS("Tlfnr")
strEmail = objRS("Email")
objRS.Close
Set objRS = Nothing
strOut = "<h2><center>Foretag relevante ændringer</center></h2>"
strOut = strOut & "<center><tr><td><font color='red'>Felter med * skal
udfyldes</font></td><td></td></tr></center>"
strOut = strOut & "<table align='center'>"
strOut = strOut & "<form action='aendr_medarbejder_execute.asp'
method='post'>"
strOut = strOut & "<tr><td>Medarbejdernr:</td><td><input type='text'
name='medarbejdernr' value='" & strMedarbejdernr & "'
readonly></td><td></td></tr>"
strOut = strOut & "<tr><td>Fornavn:</td><td><input type='text'
name='fornavn' value='" & strFornavn & "'> *</td><td></td></tr>"
strOut = strOut & "<tr><td>Efternavn:</td><td><input type='text'
name='efternavn' value='" & strEfternavn & "'> *</td><td></td></tr>"
strOut = strOut & "<tr><td>Adresse:</td><td><input type='text'
name='adresse' value='" & strAdresse & "'> *</td><td></td></tr>"
strOut = strOut & "<tr><td>Postnr:</td><td><select name='postnr'>" &
Find_Postnumre() & "</select> </td><td></td></tr>"
strOut = strOut & "<tr><td>Telefonnr:</td><td><input type='text'
name='telefonnr' value='" & intTelefonnr & "'></td><td></td></tr>"
strOut = strOut & "<tr><td>E-mail:</td><td><input type='text' name='email'
value='" & strEmail & "'></td><td></td></tr>"
strOut = strOut & "<tr><td></td><td><input type='submit' name='submit'
value='Opdatér data'></td></tr>"
Response.Write strOut
** Formular slut **
** Funktion start: **
Function Find_Postnumre()
Dim str0
Set objRS = objConn.Execute("SELECT * FROM Postnrtabel;")
Do Until objRS.EOF
strO = strO & "<OPTION VALUE='" & objRS("Postnr") & "'"
If objRS("Postnr") = "varKundensPostnr" Then
strO = strO & " selected "
end if
strO = strO & ">"
strO = strO & objRS("Postnr") & " ["
strO = strO & objRS("Bynavn") & "] </OPTION>"
objRS.MoveNext
Loop
Find_Postnumre = str0
objRS.Close
Set objRS = Nothing
End Function
** Funktion slut **
> Jeg må indrømme jeg ikke helt er med...
- Det forstår jeg godt! =)
// smith