Hej! Det blir nog svårt eftersom ASP är ett serverspråk och endast exekveras på servern till skillnad från javascript som är ett klientspråk och exekveras på klienten. Hej! <form method="post" action="dittdoc.xxx"> Hej!Anropa funktion?
Hur kan jag anropa en funktion (subrutin) i VBScript som är inlaggd i en .asp sida?
Så här ser en del av koden ut:
<%
Private Sub Grund_Click() 'subrutin för knapp vid val av grundprofil
Call Uppdatera(1) 'Grund.dot
End Sub
%>
<FORM onbutton="return Grund(this);">
<input type=button name="Grund" value="GrundProfil"
</form>
Tack på förhand!
PihlisSv: Anropa funktion?
Sv: Anropa funktion?
Vet du hur jag på ett annat sätt kan få ett anrop av funktion att fungera så som jag vill?
Jag vill att genom en knapptryckning ska komma till ett dokument.
//PihlisSv: Anropa funktion?
<input type="submit" value="Knapp" name="knapp1">
</form>
???
eller hur menar du?Sv: Anropa funktion?
Så här ser lite av koden ut, men just att knapptryckningen ska förstå att det är till funktionen över som den ska 'gå till' fungerar inte, tyvärr.
Vet du vad som bör göras?
<% Option Explicit %>
<%@ language="VBScript"%>
<HTML>
<BODY>
<%
Dim wd As Word.Application
Dim doc As Word.Document
Dim ran As Range
Dim book As Bookmark
Dim strCon As ADODB.Connection
Dim strRs As ADODB.Recordset
Dim strSql As String
Set strCon = New ADODB.Connection
Set strRs = New ADODB.Recordset
strSql = "SELECT * FROM Konsultprofil"
strCon.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=\\combitechsystems.com\CS\Transfer\Linköping\Johanna Pihlström\Konsultprofil\Version1\Konsultprofil.mdb"
Set strRs = strCon.Execute(strSql)
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
Set wd = CreateObject("Word.Application")
If wd Is Nothing Then
MsgBox ("MS Word is not installed")
End If
End If
On Error GoTo 0
%>
<form onbutton="return Grund();">
<input type="button" name="Grund" value="Grundprofil">
<!--<input type="button" name="ForDagen" value="Fördagenprofil">->
<%
sub Grund()
Set doc = Documents.Add("\\combitechsystems.com\CS\Transfer\Linköping\" & _
"Johanna Pihlström\Konsultprofil\Version1\Wordmallar\Grund.dot")
Set book = doc.Bookmarks.Item("namn")
Set ran = book.Range
ran.Text = strRs("Namn")
Grund.Caption = strRs("Namn")
Set book = doc.Bookmarks.Item("alder")
Set ran = book.Range
ran.Text = strRs("Ålder")
Grund.Caption = strRs("Ålder")
Set book = doc.Bookmarks.Item("kontor")
Set ran = book.Range
ran.Text = strRs("Kontor")
Grund.Caption = strRs("Kontor")
Set book = doc.Bookmarks.Item("telefon")
Set ran = book.Range
ran.Text = strRs("Telefon")
Grund.Caption = strRs("Telefon")
Set book = doc.Bookmarks.Item("mail")
Set ran = book.Range
ran.Text = strRs("Mail")
Grund.Caption = strRs("Mail")
End sub
sub ForDagen()
Set doc = Documents.Add("\\combitechsystems.com\CS\Transfer\Linköping\" & _
"Johanna Pihlström\Konsultprofil\Version1\Wordmallar\ForDagen.dot")
Set book = doc.Bookmarks.Item("namn")
Set ran = book.Range
ran.Text = strRs("Namn")
ForDagen.Caption = strRs("Namn")
Set book = doc.Bookmarks.Item("alder")
Set ran = book.Range
ran.Text = strRs("Ålder")
ForDagen.Caption = strRs("Ålder")
Set book = doc.Bookmarks.Item("kontor")
Set ran = book.Range
ran.Text = strRs("Kontor")
ForDagen.Caption = strRs("Kontor")
End sub
wd.Visible = True
doc.Saved = True
End Sub
%>
</form>
</BODY>
</HTML>
//Pihlis